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Rapidité Temps d'accès à l'information : 0.2 ms 
(109 fois plus rapide que les disques 
durs...). 

Par exemple : 
démarrage sur Basic.System en 35, 
AppleWriter disponible en à peine 1s. 
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Fiabilité Constituée de circuit CMOS à très 
faible consommation, SpeediskTM est 
aussi fiable que t'ordinateur lui-même. 
Elle est insensible à l'environnement, 


Capacité Speedisk'" est proposée en quatre 
versions : 
1 Mo (1 048 576 octets) 
384Ko extensible à 1Mo 
avec hoïoge compatible ProDOS 
(pour les Appie ){+. //e) ou sans (IIGS) 





Compatibilité 100% compatible avec ProDOS (c'est 
un volume), SpeediskTM fonctionne sur 
Apple }(+, sur Apple //e et sur Apple 
GS. 


. Ja'a'a'a a a's 4 


PriX Lecteur de Pom's, vous bénéficiez 
d'une remise de 10 % : 


SP400 
384Ko 55000 359100 
SP1000 
1 Mo 55000 5 391,00 
SP400H 
384Ko horloge 45870 412200 
SP1000H 


1Mohodoge 652% 592210 


Garantie Speedïisk"" est une fabrication 
française garantie un an par échange 
de la carte. 


Banc d'essai dans la revue Pom's n°31 


Vente par correspondance, Logma S.A. 
documentation, 12, rue d'Anjou 

RTE TERRE ÈS renseignements 78000 Versailles 

"ME n°: d Tél: (1) 39 51 24 43 
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Ce bref questionnaire 
est pour nous une 
précieuse source de 
renseignements : ses 
précédentes appari- 
tions sont à l'origine des 
disquettes DOS/Pro- 
DOS, des disquettes 
3,5", des programmes 
de communication. Il 
nous permettra de 
suivre au mieux 
l'évolution de vos be- 
soins et celle de votre 
matériel. Il constituera 
également un moyen de 
gagnerl'un des 10 abon- 
nements avec dis- 
quettes... 


Vous avez: 


— de 15 ans... O 
de 15 à 19 ans... © 
de 20 à 24 ans... O 
de 25 à 34 ans... O 
de 35 à 45 ans... O 


+ de 45 ans © 


Sexe 
Masculin.…..…...….....O 
Féminin © 


Les langages que vous 
pratiquez aisément : 


BaSiC rs ne O 
Pascale À 
FOIE O 
ÉD O 
Asm Apple // O 


Asm Mac... O 
Autres 


CECECEEE EEE E TEE EEE EEE EEE TEE TELE EEE TE 


Votre niveau en pro- 

grammation : 
Utilisateur 
Débutant 
Intermédiaire O 
AVOT Tr 0) 
Haut niveau O 


Chaque semaine, vous 
êtes devant votre 
micro : 
— de 2 heures... O 
de 3 à 8 heures .…..….O 
de 9 à 16 heures... © 
+ de 16 heures .….…, © 





Sondage 


Votre ordinateur : 


O 
O 
O 
O 
O 
Apple 7. O 
Compatible O 
Macintosh 128 …….O 
Macintosh 512 .….….O 
Macintosh Plus..…...O 
Lisa/Mac XL... O 
Mac /SER See O 
Votre imprimante : 
ImageWriter O 
ImageWriter 2 O 
Apple DMP O 
LaserWriter O 
Epeone.. "0 
Seïkosha OO 
Mannesman O 
Centronices © 
O 
O 


Autre 


CCEPPELCEC EE EEE EEE EEE CEE EEE EEE EEE TES 


Extensions, 
périphériques : 
Carte 80 colonnes... O 
80 col. étendue ……. O 
Carte Z80 CP/M ….O 
Carte souris... © 
Disque dur © 
Lecteur 140Ko .…..….O 
Lecteur 800Ko …….O 
Table traçante O 
Minitel... O 
O 


Autre : 


CEPCEEELCELTE CEE EE CEE EEE EEE EEE EEE TEE 


Prochainement, vous 
allez acquérir: 
Apple 7 72% O 
Macintosh O 
Lecteurs... O 
Minitel 7-20 
Modem ...0 


CalvaCom : 
Vous êtes abonné ….O 


Depuis : 
6 mois ou plus .….….O 
Moins de 6 mois …..O 


Combien de numéros 
de la revue Pom'’s 
avez-vous lu ? 


De 5 (très bon) à 0 {très 
mauvais), votre 
opinion sur : 
Niveau général … __ 
Présentation 
Intérêt des 
programmes 


Clarté des 

ANTCIPS RE Fr. 
Intérêt pédago- 

(5€ LORS =. 
Micro-Infos 2e. 
Disquettes x 


Ce que vous préférez : 


PETELTETELTELELES CET ELT ETES III ELLE 
ÉECECELIELELTELE EEE TELE ELEC EE EL EE TETE 
CECCECEEC EEE TETE EE EEE CEE CEE EE TE EE EE) 
EPTELTLETELEELETELEE LESC ELELELE ELEC EEE 
CPETETEEECELTELET EC EEE EE EEE TEE EEE LEE TE 


ÉCCEELCELECEE CEE EEE EEE CE CEE EEE 





Ce qu'il faut changer : 


CCECCELCELEETE EEE TETE CET EEE EEE EE 
CLCELCELELCECECECEEEEPECECECECEEEECEES 
CCELCECELEE TEE TEE TETE EEE EE EEE ETES 
CCECCELECE EE EEE ECEEEEEEEEEEEEEEEEEEES 


CPLTCECECTECE TETE TELE TEE ELITE IIIELIT 


Ce qu'il faut 
développer : 


CELTCECELC EE TEE EEE EEE EEE EEE EEE EE TEE 
CECECEE PET EEE EEE EEE EE EEE EEE EEE EEE 
CPCEEECEECE EEE EEE EEE EEE EEE EEE EEE EEE 


CCECELCELEETETEE CEE CCE EE T IEEE LES 


Vos autres revues 
informatiques : 


CCEPECCPCEEEE TEE TETE CEE EEE TEE ETES TEE 
CETETEETELTECELEETETEC ELLES LISE LILI 
CCECCELCELTEC ETES EE TELE EEE LISTES 


CCECELCELEECETEE EE TEE CET EEE LEE ELEE LES 


ETETTECEEEETEC TE TELELCELELELIITELIILET 
CPLECTETECEELCELELT EE CEE CET EST EEE EE EEE 
PEPECECELEET EEE LEE EEE EEE EEE EEE EEE EEE 
PETTETELLEEE TITLE TESTÉ LITELTETELII TI 


CPETCECECEEE EEE EEE EEE CET EEE TETE EE CEE 


ECCTEECEEEEEE EEE LE LEE TELE TELE LEE EEE EEE 
ÉCCELECELEECEE EEE PTE EEE EEE LEE EEE EL EE EE 
CETECECEEEE EEE EEE EEE EEE EEE CEE EE ECEEES 


CCCCELCEL EEE EEE EEE EEE EE EEE EE EEE EEE 


Abonnés 22777© 





Pom's n° 33 








@nt collaboré à ce numéro 


Alexandre Avrane — Jean-Luc Bazanegue 


Alain Bohec — Jean-Yves Bourdin 
Pascal Cantot - Alexandre Duback 
Pascal Duboin — Patrick Guyou 
Le Pham Hiep — Olivier Herz 
Gérard Michel — Patrice Neveu 
Damien Nould -Lyda Pätkovä 
Christian Piard — Joëlle Piard 


Bruno Ribard — Georges Zwingelstein 


Hervé Thiriez — Bernard Toméno 


Directeur de la publication 
rédacteur en chef 
Hervé Thiriez 


Rédacteurs 
Alexandre Avrane — Olivier Herz 


Siège social 

Éditions MEV 

12, rue d’Anjou 
78000 Versailles 
æ (1) 39.51.2443 


Publicité 
Éditions MEV 


Diffusion 
NMPP. 


Impression 
Berger-levrault 
18, rue des Glacis 
54000 Nancy 
æ 83.35.6144 


Photo de couverture 
CP & JILB 


Illustrations ‘Apple // for ever’ 
Jean-Yves Bourdin 


Photogravure 
Graphotec 
21, chemin de la Tour 
92350 Le Plessis-Robinson 
æ (1)46.30.44.49 


Pom’s est une revue indépendante non 


rattachée à Appie Computer, Inc. ni 
à Apple Computer France S.A.RL. 
Apple, le logo Apple, Mac et le 
logo Macintosh sont des 
marques déposées 
d'Apple Computer, Inc. 


IBM est une marque déposée de International 


Business Machine. 
PC et AT sont des marques déposées 
de la Société IBM. 





Pomsn 53 





Éditorial 


Pom’s est entré dans sa septième année ! 

Nous avons vu beaucoup d’eau passer sous les ponts. Nous avons 
vu naître et mourir l’Apple IL Golden, Infomag. Maintenant, 
c'est l’Apple Ic dont la vente est interrompue. La gamme 
Macintosh est apparue et porte à présent très haut le flambeau, 
ayant même réussi la percée dans les grands comptes ce que les 
autres modèles de la marque n'étaient jamais parvenus à faire : 
il entraîne dans sa lancée l'Apple Iles qui devient 
incontestablement un ‘grand’ de la gamme. Apple Expo, chaque 
annéeuneréussite,nousrassuresurl’avenirdenoschersmicros : 
le fruit du travail des développeurs aussibien dans la création de 
programmes que dans le ‘hard’ semble bien sans limite. 


Dans cette optique, nous continuons à faire évoluer Pom’s pour 
vous apporter une qualité de service grandissante. C’est 
aujourd'hui la possibilité, par l'intermédiaire de notre boîte aux 
lettres CalvaCom, de passer des commandes télématiques et de 
nous soumettre vos problèmes techniques dans la mise en œuvre 
des programmes de la revue : il nous arrive de répondre à des 
heures fort tardives et même durant le week-end... Il nous faut 
hélas, lors d’affluence, privilégier nos abonnés dans notre assis- 
tance technique : abonnez-vous! 


S'abonner, c’est — outre une priorité dans l’aide que nous vous 
apportons—recevoir Pom’s avant la mise en kiosque, c’est passer 
gratuitement dans votre revue des petites annonces, c'est égale- 
mentrecevoirpar tirage au sort des cadeaux-surprise de valeur : 
logiciels, documents techniques (nouveaux abonnements sous- 
crits à partir du 30 novembre 87). C’est aussi un rapport plus 
étroit avec Pom’s, un plus grand poids dans vos suggestions. 


Idées, nouvelles orientations ? Notre sondage ci-contre nous 
permet de mieux vous connaître, c'est une sorte de trait d'union. 


Notre ami Jean-Michel Gourévitch est en route vers de nouvelles 
aventures et c’est désormais Jean-Yves Bourdin qui assurera la 
chronique des nouvelles sur Apple //. À cette occasion nous vous 
proposons une nouvelle formule, “Apple // for ever”, composée de 
huit rubriques. Là encore, c’est à vous de dire ce que vous pensez 
de cette innovation et aussi à vous d’y contribuer : envoyez-nous 
nouvelles, informations, ‘patches’. 


Le contenu de ce numéro satisfera certainement les besoins de 
chacun ; en couverture, l’un des résultats de nos recherches dans 
le domaine de la communication : le couple micro-ordinateur/ 
Minitel est doué d'un potentiel peu commun... 


Hervé Thiriez 






























a carte Speedisk, grâce à 
l'extrême rapidité d'accès 
aux fichiers, permet 
d'envisager de nouvelles 
applications WPL — lan- 
&” gage de programmation 
eWriter —, applications qui 
resteraient lentes d'exécution sur les 
supports traditionnels ; les programmes 
présentés ici demeurent toutefois 
utilisables sur tous Cypes de supports. 


Nous vous deux 

programmes : 

- le premier permet de disposer de la 
date dans un fichier à charger à tous 
moments par une commande 
glossaire parexemple ; 

- le second montre un exemple 
d'automatisation du courrier répétitif 
habituel, devis, commande, 
relance... Cet exemple utilise la 
date et gère une numérotation de 
docurnents. 

Bien sûr, pour que tout cela fonctionne, 

il faut disposer de la date. Il y a trois 

méthodes : 

- doter son Apple d'une carte horloge ; 

- y installer une Speedisk avec option 
horloge ; 

- disposer d'un programme de boot qui 
demande la date et la met à jour dans 
les octets $BF90/$BF91 de 
ProDOS. REBOOT.SYSTEM dis- 
ponible dans la bibliothèque de 
CalvaCom convient fort bien. 


La date 


proposons 


Le premier programme WPL, qui se 
contente de vous offrir la date à la 
française (03 novembre 1987), s'exécute 
en faisant simplement : 

<ctrl-P>DO STARTUP.D 

Avant cet ordre, vous aurez mis Sur 
votre disquette (ou plutôt volume) les 
fichiers STARTUP.D, INIDATED (le 
fichier intermédiaire VARIDATE.D se 
crée automatiquement) et DATE. 

Un instant plus tard, le fichier DATE 
créé sur le volume contient la date du 


Ca date avec 


jour : pour l'utiliser faire simplement : 
<ctri-L>DATE 

Mieux : installer la commande glossaire 
D<ctri-L>DATE> 

ainsi, la date sera sous la pomme : D. 


Concrètement, le fonctionnement se 
résume ainsi : 


STARTUP.D 


C'est le premier programme à 
s'exécuter. Il sauvegarde un fichier vide 
dans le catalogue courant puis charge ce 
catalogue en mémoire texte. La date en 
cours est la date de modification du 
fichier “VIDE” sous la forme 
cm/j/aa. STARTUP.D isole donc cette 
date en mémoire texte et la transforme 
en un progranune WPL sauvegardé sous 
le nom de VARIDATE.D et exécuté à 
son tour par la demière commande de 
STARTUP.D. 


VARIDATE.D 

Ce programme n'a qu'une fonction : il 
place dans les variables $B le mois, $C 
le jour, $D l'année, ce qui va permettre 
de les traiter à notre convenance. Cela 
fait, VARIDATE.D lance l'exécution de 
INIDATE.D, 3ème programme WPL 
{heureusement que Speedisk met un 
tigre dans AppleWriter.…….). 


INIDATE.D 

A était peu utile de garder la date sous la 
forme 01/01/1987, INIDATE.N 
peaufine le travail en la présentant sous 
la forme 0] janvier 1987 et en la 
sauvegardant dans le fichier texte 
“DATE” (remarquer le PGO Variable 
bien utile dans le programme WPL). En 
fin d'exécution, DATE est disponible. 


Remarque : si aucun de vos 
programmes WPL n'utilise l'une des 
quatre variables disponibles ($D, par 
exemple), cet ensemble pourrait 
simplifié. La date mise en forme serait 
placée non plus dans un fichier mais 
dans la variable $D, INIDATE se 
terininant alors de la façon suivante : 





Lyda PÂtkovd 


12 pas décembre =$C 

pas $B$C $D=$D 
$D resterait alors utilisable autant de 
fois que nécessaire au sein d'un 
programme WPL par la seule fonction 
du type : 


F/ (DATE) /$D/ 

Oo? 
STARTUP.D, VARIDATE.D et 
INIDATE.D ne sont exécutés qu'une 
fois, à la mise en route d'AppleWriter. 
Si STARTUP.D est renommé 
STARTUP, vous bénéficierez d'une 
exécution automatique lors du 
démarrage. 


Un exemple 
complet 


L'exemple d'utilisation qui suit inclut, 
en plus de l'usage de la date tel que 
décrit, une fonction de numérotation 
automatique des docunents retenant la 
forme : numéro d'ordre nurnéro du mois 
(6709, 6809, 6910, 7010, etc). Il 
conduit à la réalisation semi- 
automatique de commandes ou de 
relances. 

À cette fin le programme STARTUP.N 
remplace le précédent STARTUPD. 
STARTUP.N crée un programme 
VARIDATE.N complété par la mise à 
jour du ruméro du mois dans le fichier 
NUMERO. 


STARTUP.N 


La comparaison des deux startups et des 
programmes VARIDATE respectifs 
qu'ils créent, permet de bien comprendre 
le processus de transforination de la 
date, initialement isolée du catalogue, 
en un programme WPL. 

Remarquer l'usage dans la 18ème ligne 
de $C au lieu de $C. S'il était écrit $C, 
l'exécution de la fonction de 
remplacement mettrait la valeur 
courante de la variable $C au lieu du 
nom de variable $C. Reste ensuite à 
ajouter la commande de remplacement 
de $ par $ (c.f. fin du programme). 

Est ajouté aussi le chargement du 
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glossaire (QEGLOSSAIRE) dont la 
seule commande prévue permet revenir à 
tout moment au programme CHOIX. 
Cette commande est donc à ajouter à 
votre glossaire habituel. 


VARIDATE.N 


VARIDATE.N contient maintenant la 
fonction de mise à jour du numéro du 
mois dans le fichier NUMERO. I] lance 
l'exécution de INIDATE.N 


INIDATE.N 


Sans changement, lance l'exécution de 
CHOKX. 


CHOIX 


Exécuté pour la première fois 
automatiquement par l'intermégiaire de 
INIDATE.N, il doit être le passage 
obligé de toute nouvelle application 
d'où la commande incluse dans le 
glossaire. 

Pour limiter cet exemple, seules les 
options 1 et 3 sont utilisées. L'option 1 
permet de préparer une commande et 
l'option 3 une relance. 


Les programmes WPL RELANCE et 
COMMANDE sont simplifiés. Ces 
programmes doivent charger les fichiers 
de tabulation et d'impression appropriés. 
Ce programme contréle la validité du 
choix à l'aide, d'une part de la fonction 
de comparaison : contrôle de Escape, et 
d'autre part d'une boucle numérique 
limitant la valeur choisi entre 0 et d : 
0<CHOIX>4. 


GLOSSAIRE 


Le glossaire ne contient que la 


commande <ctrl-C> <ctrl-P> 
doCHOIX> (remarquer que > après 
DOCHOIX signifie RETURN mais 
certaines versions d'AppleWriter exigent 
à la place le signe $) qui permet par la 
commande : Gctrl-C d'appeler CHOIX 
après chaque application. 


COMMANDE (RELANCE) 


Ce petit programme WPL pernet de 
placer dans une fiche standard 
(FICHCOMMANDE) préparée et mise 
en page à votre convenance, les données 
variables mais systématiques qui lui 
sont liées. Pour ce qui nous occupe 
présentement, il s'agit de la date par les 
instructions : 


PLSDATE=$A 


F/(DATE}/$A/A 
et du numéro par la même méthode : 
PLSNUMERO=$C 


F/ (NUMERO) /$C/a 
Le fichier NUMERO est mis à jour 
(incrémentation de 188 de sorte que 
6709 par exemple devient 6809) et 
sauvegardé pour l'application suivante. 
La lettre de commande créée est 
sauvegardée sous le nom : 
C.nom de fichier numéro 
d'où la commande WPL : 
SC.$B$C<H><H> 
où <H><H> permet de supprimer le 
numéro du mois : si $C = 6709, 
$C<H><H> = 67. 
Le fichier ainsi créé permet de faire la 
sauvegarde finale par un simple 
<ctrl-S>=. 





Utilisation 


Pour essayer l'exemple ci-après proposé 
il vous faut dans le catalogue courant : 
1 STARTUP.N 
à exécuter en premier 
2 INIDATE.N 
3 CHOIX 
4 COMMANDE 
5 RELANCE 
6 FICHCOMMANDE 
7 FICHRELANCE 
8 NUMERO 
qui contient uniquement le numéro 
à incrémenter 
9 GLOSSAIRE 
18 DATE 


Après chaque application on revient 
directement au menu de CHOIX par la 
commande glossaire Gctrl-C. 


Remarque : pour la simplicité de la 
présentation, cet ensemble n'utilise 
aucun sous-Catalogue. Il est pourtant 
préférable de prévoir le classement des 
fichiers et programmes dans des 
sous-catalogues spécifiques. En 
particulier, pour le fichier VIDE, l'idéal 
est qu'un catalogue lui soit réservé afin 
que la fonction de recherche de 
STARTUP soit rapide. Si tel n'est pas 
le cas il est souhaitable de placer VIDE 
au début du catalogue courant car 
STARTUP cherche non pas le fichier 
s'appelant VIDE mais le premier fichier 


de longueur nulle ! | 














° . °0? Transferme 

Fichier STARTUP.D rame; re 
' °0? en un 

eno Efface mémoire texte *Ft/l£ePASI programme 
+ <ESC><ESC> Efface ligne status °07 WPL 
ePND Supprime affichage eB 
*PPRuneinstante! Affiche le message eFleolePASI 
*SVIDE Sauvegarde un fichier vide 07 
Or] Accepte son remplacement F4, #=$C, * 
*OA£ Charge le catalogue 02 
°? Quitte les cdes PreDOS °F* #88, * 
8 Va au début catalogue 0? 
+Fxe--:--esse.0*  Positionne le curseur *SVARIDATE. D Le sauvegarde. 
+? Quitte la recherche 0 
2 Change le sens (<) *RdOVARIDATE. D et l'exécute 
0) Charge la date dans le buffer 
*NO Efface mémoire texte ne 
D Change le sens (>) Fichier DATE 
ex Date en mémoire texte 
D Change le sens 0 3+ novembre + 1987 pas de reteur chariot après 


eF#e%*=5p, eNO, -PDOINIDATE. D* 
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Fichier RELANCE 


-PND 

-PPR<CTRL-L> 

“N0 

ePLSNUMERO* = $C 

ePSX° $C 

°PSX°+100 

-PAS{X) =$D 

+ LNUMERO 

-F/$C/S$D/A 

.S= 

+ PLSDATE=SA 

*PPR-Numéro-desdocumente-esesssseseenssss: se $C 

°-PPReDatevvessesssssssessessssetet+ees :eeSA 

*PPR 

°NO 

° LFICHRELANCE 

-BF/(DATE)/SA/ 

-0?F/(NUMERO) / $C/ 

°0? 

APP °PPR° (1) -Monsieure+ (2) -Madame’"* (3) -Mada 
—me, «Monsieur: 

*PPR°RETURN-pour - “Messieurs"° (Ets, °SARL, *Etc.) 

ePINcesssesecssccsssssssececcscccesesccece-ee—SA 

-PCS/$SA// 

*PGOS 

°PSXSA 

*PCS/(X)/0/ 

-PGOAPP 

-PSYO0 

BOUCLE *PSY+1 

°PCS/(Y) /4/ 

-PGOAPP 

ePSX-1 

+*PGOBOUCLE 

ePGOSA° 

1-F/ (APPEL) /Monsieur/a 

*:PGO-NO 

2°F/ (APPEL) /Madame/àa 

*PGO°NO 

3°F/ (APPEL) /Madame, -Monsieur/A 

ePGO-NO 

S°F/ (APPEL) // 

°0?F/ (APPEL) /Messieurs/a 

NO-PPRe-Nom-du-fichier-de-sauvegarde---eeee 

ePINsocssesssoseses+sans°Signe*ni espace": °.=SB 

-PCS/$B// 

-PGONO 

-PPR-Nom-complet -du-destinataire-*(returne=ee$B) 

ePINecossesessesecssscececoecessessccceccee :ee—S)) 

ePCS/$D// 

ePAS$B=SD 

ePIN-PrénOme---sessccesscsessessssecesece : 

eF/ (PRENOM) /$a/ 

-0?7F/ (NOM! /SD/ 

°0?PIN*Adresse*--eocessssessscececcececussee:ee=$A 

-F/ (ADR) /SA/ 

°C? 

A-PIN-Date-de-]a-facture---..e. 

*PCS/SA// 

+ PGOA 

°F! (DATE) !$A! 

+0? 

F-PIN-Numéro-desla-factureseee.,,,/., 


-+=$a 


G 1/07 400 


cos: —Sxs 





*PCS/$A// 

-PGOF 

°F! (NUMERO) !$A! 
-0?B 


C°ePIN-Concernant,.. 





+F/ (CONCERNANT) / concernant -$a/ 


+07? 


P-PIN-Montant°TTC-* (nombre-seul)--seceeeee: 


-PCS/$a// 
-PGOP 
-F/ (MONTANT) /SA/ 


*O?SR, $B$C<CTRL-H><CTRL-H> 


Fichier INIDATE.D 


NO 

-.PGOSC 

00 °PGOERR 
01-pas-janvier=$c 
*+-pgod 
02+pas°février=$c 
. °pgod 
03-pas-mars=$c 
**°pgod 
04-pas-avril=$c 
*-*pgod 
OSepas+mai=Sc 
°*-pgod 
06-pas-juin=Sc 
*°+*pgod 
O7+pas-juillet=Sc 
..-pgod 
08-pas-aout=$c 
°*-pgod 


09°pas-septembre=$Sc 


*+-pgod 
10-pas-octobre=$c 
.+-pgod 
11-pas-novembre=$c 
*+-pgod 
12-pas-décembre=$c 
d°LDATE 


Efface page texte 
GOTO variable : $C est 
Le n° du mois, 


Changement du n° de mois 


en nom de mois 


Charge fichier date 


cF*-—ete---X$B$Ce SD * 


°0? 
S= 
-NO 


En remplace le contenu 


Le sauvegarde 


-PPR la date SB$C SD est dis 
—ponible dans le fichier "DATE" 


°PPR 


-PPR voir l'exemple d'utili 
sation avec STARTUP.N 


-PPR 


-PIN taper une touche : 


°POT 
ERR°PPR<CTRL-L> 


Fin 


-PPR vous n'avez pas de carte h 
—orloge ou bien 
-PPR vous n'ètes pas passé par R 


-:EBOOT. SYSTEM 
‘vide' n'a do 


-PPR votre fichier 


nc pas de date de modification 
-PPR ce programme n'est pas utilisable. 
*PIN 
*NO 


eeeeoceecsosereee- 











Fichier COMMANDE 


°LFICHCOMMANDE 


*F/ {DATE) /$A/a 


* F/ (NUMERO) /$C/a 


NO*PPR°Nom-du-fichier .de*sauvegarde---.sees 





°PND ePINeeeceecooeeoeeeee SansS°Signe*n1*eSpace*: °.-$SE 
*PPR<CTRL-L> -PCS/$B8// 
NO *PGONO 
+ PLSNUMERO ° =$C °PPR 
°PSX°$C ePPReNom-complet-du.destinatairee (return°=-2:$B) 
°PSX +*+1100 oPINeseooeseoseosssssseseceseoseseeecoceos: ee =$D 
*PAS(X) SD *PCS/SD// 
+LNUME RO * PASS B= $D 
-F/$SC/$D/A *F/ (NOM) /$ D/A 
ÈS °PINeAdressesscerssresesesesssesessseuecetee SA 
°PLSDATE=$SA °F/(ABR)/SA/A 
+ PPR° Numéro® des documntesssssorsossocesre: ee SC *F/Ref/ 
ePPR.eDatereresssesssesssessoeccesesoceeece: ee: SA CT 
°P PR °JJJI 
NO + SC.S$ BSC<CTRL-H><CTRL-H> 
e e *-PPR ce programme n'est pas u p p 
Fichier ns Fichier CHOIX 
PIN 
INIDA TE.N NO + <ESC><ESC> 
«PNG 

NO . : OPTION*°PPR<CTRL-L> 
rs Fichier GLOSSAIRE + 
00 +P GOERR +PPR 
Ol-pas-janvier=$c <CTRL- C> <CTRL-P >DO CHOIX > ePpReseescecocose*]e:commande 
CO *pgod °PPR 
O2°pas-février-$c = e sPPReseureesesese2e+lettre 
*.pgod Fichier VARIDATE.D -PPR 
O03-pasemars—<$c oPPRessesssessses3..relance® 
°++pgod : *PAS11=$C Met mois dans $C Pa : 
O4»pas-avril=$c .PAS03-$B Met jour dans $B opPpReceesesse<Esc>e-quitterz 
°*-pgod *PAS1987=SD Met année dans $D  *PPR 
OS-pas-mai<$c + °PPR 
ne DA *PDOINIDATE.D  Exécute Inidate.d RU rue à 
O6°pasejuin=$c me+-choisir eunesoptie 
Mrs -n*1eàt3e;°=$8 
O7-pas+juillet=$c °PCS/$SB/<ESC>/ 
pod +PGOQUIT 
08-pas-aout<$c *PSXS$SB 
+ .pgod Concernant les listings | -c54x/0/ 
CGepas°eseptembre=$c +PGOOPTION 
Or ns PSY 
Em Dansles programmes WPL listés | on. poyur 
°++pgod ici : *PCS/(Y)/4/ 
11+pas*novembre-$c les ‘+’ symbolisent les espaces, *PGOPTION 
pgod s ste ee : PR -I 
RAR LE De qui suivent le signe RES 
deLDATE -+ sont la suite de la ligne | .w 
cFX——sta—---2$SB$Ce SD* précédente, -PGOSB 
Le <ctri-L> symbolise le caractère | ?"?20CMANDE 
"2 4 ; de 2 PPRKESC>e + eme Choi sirie lon 
«PDOchoix contrôle-L que l'on saisi dans Soeur eu 
ERR*PPR<CTRI-L> Apple-Writer avec la | Pr 
-PPR vous n'avez pas de | séquence clavier : ctrl-V ctrl-L oPINcscaccessoseseeseesceecee 

carte horloge ou bien —...etaper-une *touche*: 
-PPR vous n'ètes pas passé ctrl-V ; *PGOOPTION 

—par REBOOT.SYSTEM Idem pour <esc> à saisir ainsi : | 3-PDORELANGŒ 
*PPR votre fichier ‘vide'" n° k | UIT » <ESC> 

DR ne cirl-V touche escape ctri-V. . ProDOS 

—e modification LT —— 
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Fichier STARTUP.N 


NO 

SCESC>SESC> 

ePND 
ePPRun-instant-t! 
«SVIDE 

+0 

*OA£ 

°? 

-B 

chere co. 0* 
QE 

*D 

W 

NO 

°D 

ex 

D 


eFte*=$D, NO, + LNUMERO, *HH, ° F<? 
2? <SC< "O?,.2S=ePROTNED 


-ATE. N* 
°07? 
°Ft/1£°PAS191! 
°0? 
°cF!1/!£.PAS! 
°0? 

-B 
eFlelepAS! 
*0? 

F4, X=SC, * 
°0? 

“FX, *x=$B, * 
+07 

°F<S<S<A 

+ SVARIDATE.N 
+0 

+ CEGLOSSAIRE 
*pdoVARTDATE.N 


Fichier 


VARIDATE.N 


-PAS1i=$C 
*PAS03=$B 
ePAS1987=S$SD 

+ NO 

+ LNUMERO 

° HH 

eF<?7?7<$SC< 

°0? 

+S= 
-PDOINIDATE.N 





Fichier 


NUMERO 


411 

















Fichier FICHRELANCE 


-3g 
.xd140 


Paris, le (DATE) RAPPEL (NUMERO) 


(APPEL) (PRENOM) (NOM), (ADR). 


.14G10 
-MD84 
(APPEL), 


En date du (DATE), je vous ai adressé ma facture n°(NUMERO), 
(CONCERNANT) . 
Or à ce Jjour,aucun réglement ne m'est parvenu. 


Je pense qu'ii s'agit d'un oubli de votre part, et vous prie 
de bien vouloir m'adresser la somme de : (MONTANT) Fr Par 
tout moyen à votre convenance. 


Dans l'attente, 
Je vous prie d'agréer, (APPEL), mes salutations distinguées. 


Signature 
.MmD0 


.mgO 
«FF 





Fichier FICHCOMMANDE 


-.mà90 


Paris, le (DATE) COMMANDE N° (NUMERO) 


.Md140 
(NOM), (ADR). 
. M490 
.MG10 
SCOMMANDES 
Réf Désignation Quantité Unité 
.MG4 
.Identité bancaire ,,,, : code étab. guichet compte clé RIB 
Banque XX XXXKXX XXXX XXXXXXXXXXX XXXX 


Répertoire des métiers : XXXXXXXXXx 
S'LEANC» as os ess eee ?  XXXXXXXXXXXXX 
- MGO 

.FF 
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Nouvelle étape des recherches de Pom's dans le domaine 
de la communication, voici un programme de conversion 
Image HGR/écran semi-graphique Minitel, ce qui — 
compte tenu des contraintes Vidéotex (2 couleurs 
seulement par groupe de 6 pavés) — représente une 
recherche remarquable. 


Cette nouvelle étape, après le détecteur de sonnerie du 
numéro 32 représente un pas de plus vers une prochaine 
application conversationnelle entre votre ordinateur et le 


Minitel de vos correspondants : l'Apple // serveur. 


© ————, 


S'abonner 





Vous cherchiez une bonne 
raison de vous abonner ? 
en voici quelques-unes : 


% six numéros pour le prix 
de cinq; 

Y l'assurance den'enrater 
aucun ; 

© une assistance tech- 
nique prioritaire, par 
téléphone, par Calva- 
Com ; 

= Pom’s dans votre boîte 
aux lettres avant mise 
en kiosque ; 

sûles petites annonces 
gratuites ; 

& un tirage au sort à 
compter du 30 no- 
vembre pour recevoir 
logiciels devaleur, docu- 
mentations techni- 
ques. 
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“# andis que nous 
bénéficions de su- 
perbes images en 
haute résolution sur 
nos Apple //, Je 
Minitel connecté de fraîche date 
continue à faire triste mine avec 
son texte et ses médiocres 
images. Il suffit pourtant d'un 
programme de conversion pour 
profiter de ses 8 nuances de gris 
et de ses mosaïques semi- 
graphiques. 

Quoi de mieux pour surprendre 
un utilisateur qu'une Lady 
numérisée, ou votre dernière 
œuvre graphique réalisée souris à 
la main ? 


Méthode 


Mais ces images HGR ont une 
définition de 288 x 192 points, 
tandis que notre petit Minitel ne 
peut en afficher que 80 x 72. Ii y 
aura certes perte importante de 
définition, mais vous serez 
surpris par ce dont ces 1440 
points sont capables après être 
remplis par la routine 
HGR.MNTL. 


Ce programme est conçu pour 
pouvoir : 


Patrice Neveu 


- convertir les images HGR en 
mosaïques Minitel à plusieurs 
niveaux de gris, plus ou moins 
contrastés, ou en noir et blanc ; 

- sauver le résultat sur disque ; 

- le récupérer ultérieurement. 


La conversion se déroule en deux 
phases : 

Ea première, est) écrite en 
langage-machine et analyse 
l'image HGR pour donner le 
nombre de points par zones de 3 
x 3 ou de 4 x 3 points, stocker 
ces chiffres, puis indiquer de 
combien de points est constituée 
l'image entière. 





Chaque petite zone formera un 
carré sur l'écran du Minitel. Or, 
comme l'indique la page 10 du 
Pom'’s n° 29, chaque caractère 
Minitel contient 6 de ces carrés. 


Ainsi, les 280 colonnes HGR 
deviendront 80 colonnes Minitel, 
d'alternativement 3 puis 4 points 
HGR de large. Ce compte curieux 
est nécessaire à cause du stockage 
même des points HGR en 
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mémoire : 7 points par octet, et 40 
octets par ligne que l'on doit 
mettre en relation avec les 40 
caractères par ligne du Minitel. 


Quant aux lignes, nous 
n'uäliserons que 192 lignes HGR 
(3 lignes par carré mosaïque), soit 
64 lignes mosaïque, ou encore 21 
lignes de caractères Minitel. 


Donc horizontalement, 

- ]ligne Minitel = 
40 caractères Minitel 

- 1 caractère Minitel = 
2 colonnes mosaïques 

- 1 colonne mosaïque = 
3 ou 4 colonnes HGR 


et verticalement, 

- 1 colonne Minitel = 
24 caractères Minitel 

- 1 caractère Minitel = 
3 lignes mosaïques 

- 1 ligne mosaïque = 
3 lignes HGR 


La seconde phase est écrite en 
Applesoft car elle comporte de 
nombreux calculs. I faut en effet, 
à partir de la densité par carré 
mosaique. en déduire les deux 
couleurs que le caractère Minitel 
prendra. 

Un caractère peut en effet prendre 
deux couleurs : une pour le 
caractère lui-même, l'autre pour le 
fond. Pour des mosaïques, cela 
signifie que certains des six carrés 
du caractère auront l'une ou 
l'autre couleur. 


C'est là que le problème majeur 
intervient : comment calculer ces 
deux couleurs parmi les huit 
disponibles pour que l'image 
reste cohérente d'un caractère à 
l'autre ? 

La solution passe par un calcul 
d'écart-type des six carrés d'un 


caractère : 
5x. 2x} 
n 


ET = 
n - I 


On calcule aussi la densité 
moyenne MC de chaque carré de 
l'image par la division du nombre 
de points d'un carré sur leur 
nombre maximum (7 x 9). 


Cela nous permet d'obtenir les 
deux couleurs du caractère: 

la lère: MC-ET/2 

la 2ème : MC+ET/2 


Enfin, pour savoir si un carré 
prendra l'une ou l'autre couleur, 
on compare la densité moyenne 
du carré MC à la densité moyenne 
de l'image entière M. 


La couleur est donnée par les 
séquences suivantes : 


$1B $4x : couleur du caractère, 
$1B $5x : couleur du fond. 

x prend les valeurs 

: noir 

: rouge 

: vert 

: jaune 

: bleu 

: magenta 

: Cyan 

: blanc 

En tons de gris, nous avons du 
plus clair au plus foncé : 7 3625 
140. 


IAB O 


Dernier raffinement, il est 
possible de changer le contraste 
normal de l'image (1), pour 
obtenir des effets spéciaux. 
Entrez donc 10 ou 30... 


On remarque avec l'habitude que 
certaines images passent mal en 
niveaux de gris. On peut alors les 
passer en monochrome noir et 
blanc, ce qui les avantage 
généralement. 


Comment faire ? 


Trois éléments sont nécessaires : 
un Minitel, 

un câble de liaison à l'ordinateur, 
un port série. 


Le Minitel 

S'il est retournable (bi-standard) 
vos œuvres pourront être 
transmises à un Correspondant 
équipé également d'un Minitel. 


Le câble 

La revue en tient à votre 
disposition si vous n'en disposez 
pas. 


Le port série 
Sur un //c ou un IIGS, il est 
intégré à la machine. Sur un ][+ 





ou un //e, la carte SuperSérie 
Apple doit être insérée dans le slot 
2 (si elle est dans un autre slot, 
modifiez la ligne 1100 du 
programme Basic), configurée de 
la façon suivante : 


sw 


EL 


modem 


terminal 
sw2 
n 


Sur votre IIGS, à l'aide du tableau 
de bord, mettre toutes les options 
par défaut du port modem, sauf : 
Data/Stop Bits : 7/1 
Parity : Even 
DCD Handshake : No 
DSR/DTR Handshake : No 


Sur votre //c, supprimer le 
REM de la ligne 4. 


Le programme 


Pour utiliser ce programme de 
conversion il faut, si vous ne 
disposez pas de la disquette 
d'accompagnement, saisir et 
sauvegarder les programmes 


Basic HGR.MNTL et 
COMPACTEUR ainsi que la 
routine binaire DENSITE. 

Après l'ordre : 


RUN HGR.MNTL 


le menu vous propose la 
conversion d'une image HGR qui 
consiste en sa transformation en 
un fichier TEXT à envoyer au 
Minitel. Dans cette option, après 
affichage du catalogue, indiquez 
le nom de votre image HGR 
(veillez à ce que son nom 
n'excède pas 8 caractères, éven- 
tuellement renommez-la avant). 
Après transformation, un fichier 
TEXT a été créé sur disque : 


nom_de_l'image.MNTL 
Ce fichier peut déjà être transmis 
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au Minitel à l'aide de l'option 
récupération. 


Le fichier qui est composé de 
4206 caractères peut être réduit à 
l'aide du programme COMPAC- 
TEUR qui a pour objet la 
suppression de codes de 
changement de couleurs inutiles : 
à n'exécuter que lorsque l'image 
transformée a le contraste voulu. 


Remarques 
Si votre image HGR s'appelle : 





LADY par exemple, 


le fichier de téxte créé par 
Hgr.Mntl s'appelle : 


LäDY.MNTL 


et, après compactage par le 
programme Compacteur : 


LADYC.MNTL 


Pour envoyer votre belle image à 
votre Minitel depuis un 
programme Basic, s'inspirer des 
lignes 63002 à 63120 du 
programme Hgr.Mnitl. 


Pour l'envoyer à un 
correspondant qui possède un 
Minitel, s'inspirer du programme 
ENVOIIM. Le seul travail dudit 
correspondant sera de connecter 
son Minitel lorsqu'il entendra la 
porteuse. 


Hgr.Mntl fonctionne aussi bien 
sous ProDOS que sous DOS 3.3. 


La routine en Assembleur a été 
écrite avec Merlin-Pro. 








mage HGReoe%090000090000000000%-0400 
Pere n'es eo lesise oede tree ste.) /R)éCUpérer 
une image Minitelssecosse.veeseeecs 
0000009 090009909000090000000s (Q}uitt 
er vers l'Applesoft 

10025 PRINT "“sesesesereee{S}ortir vers u 
n redémarrage ProDOS ";: GET RS$ 

10030 PRINT R$: IF RS = "R" THEN 63000 


Programme HGR.MNTL 


Pour l'Apple f{c, voir article. 
Pour enfaciliter le comptage, certains es paces ont été 
remplacés par des ‘puces’ * 


Pour l'Apple fc, supprimer le REM de la ligne 4. 





0 REM 10033 IF R$ = "Q" THEN TEXT : HOME : EN 
Progranme de transformation D 
d'une image HGR en mosaique 10036 IF R$ = "S" THEN PRINT CHR$ (4}" 
Minitel BYE" 

4 REM PRINT CHRS(4)"PR£2" : PRINT CHR$ 10040 IF R$ < > "T" THEN 10010 
(1) "ID"CHR$ (1) "3P"CHRS (1) "8B 10043 ONERR GOTO 63300 


10045 PRINT CHRS$S (4) "CATALOG": PRINT 
10050 INPUT "Quelle image voulez-vous tr 
aiter ? M";ITS 


5 PRINT CHR$ (4)'"PR£3 
6 PRINT 


10" TEXT : HOME : ÆNVERSE : PRINTAMPTOog 





ramme de conversion d'une image HGR en 10060 HGR : PRINT CHR$ (4}"BLOAD"I$",AS 
Minitel / Patrice Neveu (87) Ms 2000 
NORMAL = 
red Programme ENVOIIM 
40 POKE 768,104: POKE 769,168: POKE 770, 100 ESC$ = CHR$ (27}):PROÏS = ESCS$ + CHRS 
104: POKE 771,166: POKE 772,223: POKE (57}:DECS$ = CHR$ (103):CNEX$ = CHRS 


773,154: POKE 774,72: POKE 775,152: PO 
KE 776,172: POKE 777,96 








1000 HIMEM: 38400 

1005 ONERR GOTO 63200 

1010 PRINT CHR$ (4)"BLOADDENSITE 

1015 POKE 216,0 
1020 LOMEM: 21760: REM Pour protéger 1 3 







a page l Haute Résolution 


1030 HIMEM: 36864: REM et la routine d 160 )S"READ 
es variables et fichiers. 170. :ONERR .GOTO.200 

1040 RESTORE : DIM ERS$S(17): FOR I = 1 TO X@0 GET R$: PRINT: RS: 
8: READ R$: NEXT I 390 GOTO 180 . 

1050 FOR I = 1 TO 16: READ ERS:ER$S(I) = 200 PRINT ::: PRINT :OS"CLOSE"IM: 
ER$: NEXT I 210. PRINT. PRO1SDECS 

1100 SE = 2 PRINT. DS"PR£EZ 

10000 REM EI 


Choix des différentes 
options de transfert 
10010 VTAB 5 
10020 PRINT “Voulez-vous (T)raiter une i 
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10070 TEXT 


10080 PRINT "Voulez-vous de la couleur ? 


“;: GET RS$: PRINT RS$: IF R$ = "N" THE 
N MN$ = 1: GOTO 40000 
10090 INPUT "Quel contraste ? ";CO% 
40000 REM lère phase en Langage-Machine 
et prépare la 2ème en Basic 
40010 PRINT CHRS$S (4) "STORE DATA.MNTL 
40020 CLEAR 
40030 CALL 38144 
40040 CLEAR 
40050 PRINT CHRS$S (4)"RESTORE DATA.MNTL 
40060 T = PEEK (24) + PEEK (25) * 256 
40070 PRINT T / 5120:M$% = INT (T / 5120 
) 
40080 PRINT CHRS$ (4)'"PR£"SL 
40090 PRINT CHRS$S (12): PRINT CHR$ (14) 
40100 DIM DT#(840,2) 
50000 REM 


Phase Applesoft de déter- 
mination de couleurs et 
points 


50010 FOR Y = 0 TO 
TO 7INSTEP 2 

50020 ADé = 16384 + X 

50030 C$(1) = PEEK (ADS + Y * 80):C%(2) 


62 STEP 3: FOR X = 0 


= PEEK (AD$& + 1 + Y * 80):C$8(3) = PE 
EK (AD$ + (Y + 1) * 80):C%(4) = PEEK 
(AD$ + 1 + (Y + 1) * 80):C$3(5) = PEEK 
(AD$ + (Y + 2) * 80):C$%(6) = PEEK (A 
D$ + 1 + (Y + 2) * 80) 
50040 IF MN$% THEN CF$% = 7:CL% = 0: GOTO 
50130 


SOOSONSEENC EN I)MEICÉ (2) AICETSIEERCES)IN CE 
C&(5) + C3(6) 


50060 ET = ((C4(1) * 2 + C$(2) © 2 + CS(3 
JOEL EF CDN T2 RC SN RCE (6) 
CNP) C2) 7 MIE /ANS 

50070 ET ET ANCOS 

50080 CL$ ="S\' /MOEU= ET /N2:CEE = Si / "ENT 
ET 702 

50090 IF CL$ > 7 THEN CL$ = 7: GOTO 5011 
0 

50100 IF CL$ < O0 THEN CL8& = 0 

50110 IF CF$ > 7 THEN CF8& = 7: GOTO 5013 
0 

50120 IF CF#& < 0 THEN CF$ = 0 

50130 C% =032 FACE (TL) > MI) 20 (CE (2) 
> M$) + 4 * (C$(3) > M$) + 8 * (C8(4) 


> MS) HEIN (CAS) EE ME)NENNC RENE ( 
6) > M3) 


50140 RESTORE : FOR I = 0 TO CF$%: READ F 
$: NEXT I:CF$ = F$ 

50150 RESTORE : FOR I = 0 TO CL$: READ L 
$: NEXT I:CL$ = L$ 


50160 
} + 


PRINT ŒCHRS (27) + CHRS (64 + CF$ 
CHRS (27) + CHRS (80 + CL$); CHR 


S (C#); 
50170 DT#(03%,0) = 


CF$:DT$(0$,1) = CL$:DT$# 











(03,2) = C3:0$ = O0$ + 1 
50180 NEXT X,Y qu 
50190 PRINT CHRS (15) or) © 
50200 PRINT CHR$S (4)"PR£3 A 
50210 DATA 0,4,1,5,2,6,3,7 © 
62000 REM (a 
Sauvergarde de la mosaique e. 
sur Disque 
62010 NORMAL : TEXT : HOME 
62020 PRINT "Voulez-vous sauver cette im 
age Minitel sur disque ? ";: GET RS 
62030 IF RS = "N" THEN RUN 
62040 IF R$ < > "O" THEN 62010 
62050 PRINT CHR$S (4) "OPEN"IS".MNTL 
62060 PRINT CHRS (4) "WRITE"IS".MNTL 
62070 PRINT CHRS (12): PRINT CHRS (14) 
62080 FOR I = O0 TO O$ - 1 
62090 PRINT CHRS (27) + CHRS (64 + DT$# 


(I,0)) + CHRS (27) + CHRS (80 + DT$({ 
I,1)) + CHRS (DTS8(I,2)]; 
62100 NEXT I 
62110 PRINT CHRS$S (15) 
62120 PRINT CHRS (4) "CLOSE 
62130 RUN 
63000 REM 
Affichage d'une mosaique 
sauvée sur Disque 
63002 ONERR GOTO 63300 
63004 PRINT CHRS$S (4) "CATALOG 
63010 INPUT "Quelle image voulez-vous ré 
cupérer ? ";IS 
63020 PRINT CHR$ (4) “"UNLOCK"IS$".MNTL 
63040 PRINT CHRS$S (4)"PR£"SL 
63050 PRINT CHRS$S (4) "OPEN"IS".MNTL 
63060 PRINT CHRS (4)'"READ'"IS".MNTL 
63070 ÔONERR GOTO 63090 
63080 GET RS: PRINT R$;: GOTO 63080 
63090 PRINT CHRS$S (4) "CLOSE 
63100 NORMAL 
63110 PRINT CHRS (4)"PR£3 
63120 POKE 216,0 
63130 RUN 
63200 REM 
Erreur, il n'y a plus le 
disque d'origine 
63210 HOME : PRINT : PRINT “Vous devriez 
remettre le disque de Conversion": PR 
INT 
63220 GET R$ 
63230 POKE 216,0 
63240 RUN 
63300 REM 
Erreur de disque, on 
recommence l'opération 


63302 POKE 216,0 

63303 TEXT 

63305 CALL 768 

63310 ER = PEEK (222): HOME : TEXT 

63320 RL = PEEK (218) + PEEK (219) * 25 
6 


Pom's n° 33 








63360 PRINT "("ER") "ERS(ER)" ligne "RL 
63370 GET RS 

63390 RUN 

63399 REM 


Données contenant les mes- 
sages d'erreur du DOS plus 
un pour l'Applesofe. 

63400 DATA "Langage non disponible","P 
aramêtre hors limite", "Rien n'est conn 
ecté" ,"Disquette protégée a l'écritu 
re","Fin des données","Fichier introuv 
able","Erreur de paramètre", "Erreur d' 
Entrée - Sortie","Disque plein" 

63405 DATA "Fichier verrouillé" 

63410 DATA "Pas de mémoire tampon dispo 
nible","Erreur quant au type de fichie 
r","Programme trop important", "Cette c 
ommande ne peut etre passée en mode di 
GrecCEs 

63420 DATA "Erreur de syntaxe","Erreur 

dans l'Applesoft" 


29 PRINT "Chargement du fichier "FS$ 

30 PRINT DS"OPEN'"FS$S: PRINT D$"READ"'FS: F 
OR I = 0 TO 4205: GET CARS:CAR(I) = A 
SC (CARS): NEXT : PRINT D$"CLOSE 

80 PRINT "Compactage en cours 

90 PRINT D$"OPEN"F1S$: PRINT D$S"WRITE"F1$ 

100 PTR = -1 

110 PTR = PTR + 1: IF PTR > 4205 THEN 400 

120 C{1) = CAR(PTR): IF C(1) < >ES THEN 

PRINT CHR$ (C(1));: GOTO 110 

PTR = PTR + 1 

C(2) = CAR (PTR) : 

> 71 THEN PRINT'ESS CHRS (C{2));: 

70 110 

150 PTR = PTR + 1 

160 C(S)M=NCAR(ETR) (TE NCi(3) <| SVESI (THEN 

PRINT ESS CHRS$S (C(2)) CHR$S (C(3));: 

GOTO 110 

170 PTR = PTR + 1 

180 C(4) = CAR(PTR): IF C(4) < 80 OR C(4) 
> 87 THEN PRINT ESS CHRS$S (C(2))ESS C 
HR$S (C(4));: GOTO 110 

190 OK = 1: FOR I = 1 TO 4: 


130 
140 IF C(2) < 64 OR C{(2) 


GO 


TE STTJNE > 





Programme C(I) THEN OK = 0 
COMPACTEUR 200 NEXT : IF OK THEN GOSUB 1000: GOTO 
110 
210 FOR I = 1 TO 4: PRINT CHR$S (C{I});: 
5 HOME NEXT : GOSUB 1000: GOTO 110 
10 D$ = CHRS (4): DIM CAR(4205),ST(4),C( 400 PRINT DS$S"CLOSE": PRINT "Fichier "F1$ 
4):ESS$S = CHRS (27):ES = 27 " créé": PRINT "Terminé.'': END 
20 INPUT "Fichier à compacter ? ":F$:F1$ 1000 FOR I = 1 TO 4:ST(I) = C(I): NEXT : 
= F$ + "C" + ".MNTL'":FS = F$ + ".MNTL RETURN 
Raccourcir WPEL Récapitulation DENSITE 


Pour comprimer un programme WPL trop long (la limite se 
situe à 2048 caractères), toutes les commandes qui 
s'exécutent sans “return” peuvent être accollées. 

Le programme STARTUP.N de la page 10 pourrait ainsi 
s'écrire comme ci-dessous et passer de 288 caractères à 244. 


<esc esc>PND 
PPRin instant ! 
SIDE: 

[0] à 

ŒE£ 

PBFA —:— O* 
PDHNO 

DXDF* #=D, NO, 
O?FILIE PASI9! 
O?F!/1# PAS! 
O?BET ! PAS! 
0?F#, #0, * 
OPF#, *=$B, * 
OPF<S<SSA 
SVARIDATE. N 

(9 di 
PDOVARIDATE. N 


LNUMERO, HH, F<?7?P<$C<, O?, 


S=, PDOINIDATE.N* 


Après avoir saisi celte récapitulation 
sous moniteur, vous la sauvegarderez par : 


BSAVE DENSITE, A$9500, L181 


9500:A9 40 8D 5A 95 A9 00 85 
9508:07 85 06 8D 59 95 85 18 
9510:85 19 A9 00 85 09 A9 03 
9518:8D Bé 95 A5 07 A2 00 AO 
9520:00 20 11 F4 A5 06 4A A8 
9528:58! 26 90 08 4A 4A 4A 29 
9530:0F 4C 36 95 29 07 A8 B9 
9538:A< 95 18 65 09 65 09 E6 
9540:07 CE B4 95 DO D5 AS 06 
9548:4A BO 08 A4 09 B9 8D 95 
9550:4C°589%95 A4 09 B9 97 95 
9558:8D 00 40 EE 59 95 DO 03 
9SOOEE SA 95 AS 09,16, 65 18 
9568:85 18 90 02 E6 19 A4 07 
9570:88 88 88 84 07 E6 06 AS 
9578:06 C9 50 90 95 A9 00 85 
9580:06 A4 07 C8 C8 C8 84 07 
9588:C0 BF 90 86 60 00 01 01 
9590:02 03 04 05 06 06 07 00 
9598:01 01 02 02 03 04 04 05 
95AC:05 06 06 07 00 01 01 02 
9548:01 02 02 03 01 02 02 03 
95B0:02 03 03 04 00 
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Source DENSITE.S 


Assembleur Merlin-Pro 


LST 
DRG 


OFF 
$3500 








ÉRARRHADDIDRIDDDDDRRIDIRR D DÉRRIDIDRRRIRREDRERR 


* Objet général: * 
+ * 
* Stockage de là concentretion des points * 
* d'un sixième de caractère en mémoire. ? 
* + 
sitio ntiinitiitihittttiatentiaiir 


Ath hanté that hhhhth ht Rte 


* Lot de points fait 3x3 points (pair) p3 
* 3x4 {impair) * 
+ * 


* Donc 21 lignes Minitel seront utiiisées * 


than aahahhthiitathttthtihré 


* Labels 

XCOORD = 506 ; Coordonnées du lot à étudier, 0-79 

YCOORD = s07 ; Coordonnées du lot à étudier, 0-191 

NBRPTS = s09 ; Nombre de ponts dans le lot 

PTSTOT = S18 

BBAS = S26 : Adresse sorte de HPOSN 

BIMEM = S73 ; Proëxton du programme face a ux vanables 
|  HPOSN = $F411 : Trowe l'adresse d'un groupe de points 


+ Boucle des lignes et des colonnes HGR 


LDA  £5$40 : Les dersilés de poinls seront mises 

STA STOCKDENS+2; à pañt de $4000 

LDA  £0 

STA  YCOORD : On commance en haut à gauche de l'image 
STA  XCOORD 

STA  STOCKDENS+1 

STA PTSTOT : Mise à zéro du nombre de points constituant 
STA PTSTOT+1  ; l'image et utilisé dans la moyenne générale. 


* Programme de calcul de concentration d'un lot de Points 


CALCLOTS 
LDA  £O : Mise à z6ro du nombre de points d'un lot. 
STA  NBRPTS 
LDA  £3 
STA  NBRLGNS : Nombre de lignes dans le lot 
LITOCTET 
LDA  YCOORD : On va se positionner au début de k ligne 
LDX  £0 ; Dont & numéro est dans YCOORD. 
LDY  £0 
JSR  HPOSN : Va chercher son adresse 
LDA  XCOORD 
LSR ; Colonne / 2 numéro d'octet 
TAY 
LDA f(Hë&as),Y ; Prend lociet sur k& bonne ge 
BCC PTSG + Pour savoir si on est dans la colonne de 
LSR ; gauche ou de droite d'un caractère Mnitet. 
LSR : Dans k cas de la partie gauche, décale à 
LSR : oroite les 4 bits intéressants. 
AND £#00001111 ; Étonksisole 
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JMP  ADDPTS 
PTSG AND  £$#00000::1 ; Onioleks3 points intéressants de droite 
ZDSEPTS 
TAY : Transforme la valeurer: index 
LDA  NBRPRVAL,Y ; Prendie nombre ce bils selon la valeur 
CLC 
ADC  NBRPTS ; Addilionne ça au nombre de pois du lot 
STA  NERPTS 
INC  YCOORD : Passe à la prochaine ligne HGR 
DEC  NERLGNS : Ça fait une ligne de moins à faire 
BNE LITOCTET  ; surles 3 que comple 1/6 de caractère MNIL 


r Ii y a huit concentrations possibles 


LDA  XCOORD ; À nouveau 8faut faire la distinction 
LSR : enre la parte gauche et k parte droie 
BCS  PTS12 : defocteiconsidéré. 
LDY  NBRPTS : Dares un cas on prend une table contenant 
LDA  COULEUR,Y ; 10concentrations possibles {0 à 9) 
JMP  STOCKDENS 
PTS12 LDY  NBRPTS : Dans l'autre cas ona 13 possibilités 
LDA  COOLEUR2,Y ; (0à 1e) 
STOCKDENS STA $4000 ; On sauve b nombre de poinis dans une table 
INC  SsTOcKDENS+1; Puis on passe à la prochaine position. 
&BNE  STOCKED 
INC  STOCKBENS+2 
STOCKED 
LDA  NBRPTS : Pour avoir le nombre ioial de points 
CIC ; consliont l'image, on rajoute ceux-là. 
ADC PTSTOT 
STA PTSTOT 
BCC Nec 
INC  PTSTOT:1 
NOC 
LDY  YCOORD ; On fait cala car à chaqte 1/6 ème de 
DEY ; caractére, le n° de ligne augmentede 3 
DEY ; Or, on ne doi passer aux 3 lignes HGA 
DEY : suivantes qu'en bout de ligne, c'est à 
STY  YCOORD ; die. 
INC  XCOORD 
LDA  XCOORD 
CMP  £80 : Lorsque XCOORD est à 80. (40x2) 
BCC  CALCLOTS 
LDA £O : Alors seulement cri peu sauter les 3 lignes 
STA  XCOORD ;: guw l'on viett de lrañer ef vent en 
LDY  YCOORD ; début da ligne. 
INY 
INY 
INY 
STY  YCOORD 
CPY  £191 ; La ligne HGR n°191 est la dernière 
BCC CALCLOTS 
RTS + Après laque llon passe à la phase n°2 


* Tables diverses 


* On peut changer ces deux premières tables qui indiquent 
* gue pour Un nombre X &e points dans le 1/6 de caractére 
* on a le niveau é&e gris Y. 


00010102030405060607 
00010102020304040505060607 


COULEUR HEX 
COULEUR2 HEX 
r Cette table indique Que pour la valeur X, Y bits sont à 1 
NBRPRVAL HEX 00010102010202030102020302030304 


NBRLGNS HEX 00 
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LE Pham Hiep 


Joici un petit 
programme qui 
vous permet d'uti- 
liser les fonctions 
graphiques Super 
haute résolution 
de l'Apple IIGS. 

montrera les 
principes de base pour 
exploiter les possibilités 
des “outils” à partir du 
Basic Applesoft. 





Il vous 


Les possibilités 
sraphiques du IIGS 


L'Apple IIGS, grâce à sa ROM de 
128K0, présente de nombreuses 
possibilités qui ne sont pas 
exploitables directement depuis 
l'Applesoft. Dans cet article, nous 
nous intéressons surtout aux 
outils graphiques. 


L'Apple IIGS est doté, en plus 

des traditionnels modes graphi- 

ques de l'Apple //, du mode 

Super-Hi-Res. Ce demier est géré 

par QuickDraw II, il vous donne 

la possibilité de contrôler les 

résolutions suivantes : 

+ _320x200 ou 

+ _640x200 en 16 ou 4 couleurs 
(en standard) parmi une palette 
de 4096. 


QuickDraw II sait gérer les 
fonctions de base telles : 
* les lignes, 
+ les rectangles, 
+ letexte, 
mais également les manipulations 
de l'environnement graphique 
comme : 
* la gestion des coordonnées, 
* la gestion des régions 
visibles … 
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Possibilités de 
mise en œuvre 


Pour utiliser les outils du GS, 
vous disposez de plusieurs 
moyens : 


- un langage évolué comme 
PascaloucC, 

- l'assembleur sous moniteur 
(qui fonctionne fort bien) ou 
APW (Apple Programmer 
Workshop). 


Ici, nous allons utiliser 
l'assembleur pour définir une 
interface permettant au Basic 
d'accéder aux fonctions 
graphiques. Il faut savoir 
également que les outils ne sont 
pas indépendants. Dans le cas qui 
nous intéresse, pour faire 
fonctionner Quickdraw I, il faut 
également installer Locator, 
Memory (qui sont nécessaires 
pour le fonctionnement du 
système). Mais heureusement le 
Basic.system s'installe dé jà avec 
ces derniers. 


Le fonctionnement de certains des 
outils du système nécessite 
parfois quelques espaces 
mémoires réservées, dans le cas 
de QuickDraw H v1.1, il s'agit de 
3 pages de 256 octets dans le 
premier bank de mémoire (bank 
00). 

Les appels aux fonctions des 
outils doivent se faire en mode 
natif pur (c'est-à-dire les 
drapeaux du registre d'état du 
65816 sont : e=0, m=0, x=0). 


Maintenant nous pouvons 
commencer à écrire notre petit 
programme qui permet : 

1) l'installation de QuickDraw H ; 
2) sa désactivation, nécessaire 


pour libérer les mémoires et 
assurer la cohérence du 
système ; 

3) l'appel de certaines fonctions 
graphiques. 


Appels des 
fonctions des outils 


Les appels des fonctions se font à 
partir du point d'entrée $E10000 
(adresse O du banc de mémoire 
$E1) de la façon suivante : 
- mettre dans X le numéro de la 

fonction souhaitée puis, 
- faire JSL $E10000. 
Souvent, les paramètres sont 
passés par la pile ; par exemple, 
pour positionner le curseur, nous 
empilons sa position horizontale, 
sa position verticale, puis nous 
faisons : 

LDX £$.. 

JSL $E10000 
En assembleur (APW) il existe 
une bibliothèque de macros qui 
permet de faire des appels de 
fonctions des outils par leur nom : 


_MoveTo, MMStartup, ... 


Description du 
programme 


Vous trouverez icile programme 
source écrit sous APW avec les 
directives nécessaires pour son 
assemblage. 


Quelques explications concernant 
deux macros usuelles : 
pushword... empile un mot 
(c'est-à-dire 16bits). Son 
équivalent : LDA. PHA 
pushlong... empile un mot 
long (32bits). Il est 
équivalent à deux push word 
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Toutes les macros commençant 

par le souligné ‘“_” sont des 

appels à des fonctions des outils, 

en général, leur équivalent est : 
LDX £$. ; n° de Fonction 
J$L $E10000 


Le programme 
binaire 


Le programme en assembleur se 
logera en $800. Les programmes 
Basic de ce fait commenceront en 
$1000. 


De $800 à $AFF : espace réservé 
pour initialiser Quickdraw. 

À partir de $B00 : les points 
d'entrées des fonctions gra- 
phiques : ils vous facilitent les 
appels. À la suite de ces points 
d'entrées nous laisserons la place 
pour passer des paramètres. 


Ici, nous avons adopté le passage 

des paramètres par des Pokes et 

les appels par des Calls pour 2 

raisons : 

- pourceux qui voulaient utiliser 
QD.BIN en assembleur, la 
manière de les appeler reste 
identique ; 

- ilse peut que vous ne vouliez 
pas changer toutes les valeurs 
d'une fonction (exemple : vous 
voulez faire un trait horizontal, 
il suffit de ne changer que le 
paramètre H). 


Le programme de démonstration 
QD.SAMPLE devrait éclairer les 
choses. 


Concernant les listings 


QD.SAMPLE : programme en 
Applesoft qui donne un 
exemple d'utilisation. 


Pour ceux qui possèdent APW il 
faut taper : 

- MAIN : programme (en EXE) 
- QD.SRC : source en assem- 
bleur APW (en ASM65816) 
puis lancer MAIN ; vous 
obtiendrez QD.BIN l'interface 

binaire nécessaire. 


Pour ceux qui ne possèdent pas 
de APW vous devez tapez 


Comment utiliser 
QD.BASIC ? 


Vous êtes arrivés au 
Basic.System en ayant booté sur 
ProDOS 16 puis MouseDesk ou 
Sélecteur, et sur votre disque 
vous avez QD.BIN. Pour 
disposer des fonctions 
graphiques, vous devrez vous 
inspirer du programme de 
démonstration QD.SAMPLE. 


Pour charger QD.BIN et lui 

réserver la place, les lignes 9 à 20 

relogent le Basic : 

ligne 9 : est-on relogé ? 

ligne 10 : fixe la nouvelle adresse 
de chargement du programme 
Basic. 

ligne 15 : charge QD.BIN. 

ligne 20 : recharge le programme 
Basic, mais à la bonne 
adresse. 


Il vous faut alors définir une 
variable, QD par exemple, valant 
2816 et les fonctions vous sont 
alors accessibles ainsi : 


Initialisation 
CALL QD 


Désactivation 
CALL QD+3 


Positionnement 

AT(H,V) 

- Poker en QD+70 et QD+80 la 
position verticale (de O à 200) 

- Poker en Q+68 et QD+69 la 
position horizontale (de 0 à 320), 
poids faible, poids fort 
CALL QD+6 


Impression de chaînes 
PRINT (T$) 
-_ Poker en QD+72 la longueur de la 
chaîne 
Poker la chaîne à partir de 
QD+73 (maximum 127 carac- 
tères) 
CALL QD+9 


Mode d'impression 
raphique 





C vaut de 0 à 3 ou de $8000 à 
$8003. 
Poker C en QD+50 et QD+51 
(faible, fort) 
CALL QD+12 


Les valeurs de C sont les 

suivantes : 

$0 COPY : la source écrase la 
destination 

$i OR : la source s'ajoute à la 
destination 

$2  XOR : le Ou Exclusif entre la 
source et la destination sera 
affiché 

$3 BIC : on affiche : (NOT 
source) AND destination 

$4 mêmes modes que $0 à $3 

$5 mais s'appliquent à l'affichage 

$6 du texte : seul le corps du 

$7 texte est concerné 

À toutes ces valeurs, si on ajoute 

$8000 à C, la source est inversée 

avant opération logique : si C = 

$8001, (NOT source) OR 

destination sera affiché. 


Couleur du crayon 

SetSolidPenPat (C) 

-__ Poker 0 en QD+51 

-__ Poker C en QD+50 
CALL QD+18 


Attributs du texte 
SetTextFace (C) 

C=0 normal 

C=1 gras 

C=2 souligné 


Poker 0 en QD+53 
Poker C en QD+52 
CALL QD+21 


Mode d'impression texte 
SetTextMode (C) 


Idem SetPenMode pour le texte. 


Poker C en QD+54/QD+55 
CALL QD+24 


Couleur du texte 
SetForeColor (C) 
Poker 0 en QD+51 
Poker C (de 0 à 15) en QD+50 
CALL QD+27 


Se 8 Tracé d'une ligne 
directement la récapitulation. SetPenMode (C) LineTo (H,V) 
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- Poker coordonnées d'arrivée V 
en QD+70 et QD+71 


Programme QD.SRCE 





FichierEXE 


- Poker coordonnées d'arrivée H 
en QD+68 et QD+69 Apw 
CALL QD+30 


* QD Basic 


Inversion d'un rectangle 
InvertRect (V1, H1, V2, H2) 


* 


# par Le Pham Hiep 87 


coordonnées du point hautgauche  * programme en $b00 


ei bas/droit. ÉRRRRR RAR RRnRRRR RAR RAR RRRRRRRRRÉ 


- Poker Vi en QD+56 et QD+57 
-_ Poker Hi en QD+58 et QD+59 
-__ Poker V2 en QD+60 et QD+61 
-_ Poker H2 en QD+62 et QD+63 
- CALL QD+33 


Dessin d'un rectangle 
PaintRect (V1, H1, V2, H2) 
Poker Vi en QD+56 et QD+57 
-_ Poker H1 en QD+58 et QD+59 QDstart 
-__ Poker V2 en QD+60 et QD+61 
Poker H2 en QD+62 et QD+63 
CALL QD+36 


Tracé d'un arc 

PaintArc (V1, H1, V2, H2,8, C) 
Le rectangle V1/H1/V2/H2 sert à 
définir l'ellipse support de l'arc, S est 
l'angle de départ, C l'angle de tracé. 


-__ Poker Vi en QD+56 et QD+57 
- Poker Hi en QD+58 et QD+59 
-__ Poker V2 en QD+60 et QD+61 
-__ Poker H2 en QD+62 et QD+63 


Pistooff 
ebsaddr on 
GEN off 
SYMBOL off 
org $000b00 


KEEP QD 


mcopy qd.mäcros 


START 

jmp initgd 
jmp gdoff 
jmp At 

jme Print 

jmp SetPenMode 
jmp GrafOff 


QD.MAIN 


RRRRRREX AARRÉRRRARRRRRRRRRRRARRARÉRÉARRÉ 


macgen ga.src &d.mac 


ros .d2/macros/= 


asml qa.src 


RRRRRARÉRRRRARRRRRRRRRARRRARRARARARÈRE 


Le rectangle est défini par les + 3 pages de quickadraw $800.sarrr 


rename qd qd.bin 
makebin gd.bin-| 


I[gs 


- installe Quickdraw 

: desactive Quickdraw (libère le système) 
5 AT {H, ÿ 

; Print (stptr) : de type Pascal 
;SetPenModefcolor) :0..3 ou $8000.$8003 
:GrafiOh 


JmPp SetSolidPenpat ;SelSolidPenPat{color) :couleur crayon 


jnp SetTextFace 
jnp SetTextMode 
imp SetForeColor 
jmp LineTo 

Jnp InvertRect 
jmp PaintRect 

jmp PaintArc 

jnp SetBackcolor 





: SetTextFace(TextFace) : 0..3,souligne 

; SetTextMode(TexMode) : 0.3oub15=1 
; SetForeColor{color) = set texte color 

: LineTofH, V) 

; InvettRect{rectptr] 

; PaïtRect{rectptr) 

; PaintArc{rectptr,startangle angle) 
;SetBackColor{color) : couleur du fond 





- Poker S en QD+64 et QD+65 j Ur 
- Poker C en QD+66 et QD+67 de 0 
-_ CALL QD+39 MyId dc i'00" ; nomnalement $3001 
Couleur de fond color den : 00..0f 
SetBackColor (C) TextFace de '0 1e ; 00.03 
- Poker 0 en QD+51 TextMode dc i‘00' :00..03 $8000.$8003 
-_ Poker C (de 0 à 15) en QD+50 
- CALL QD+42 rectptr de 1'10,10,100,100";V1,H1,V2H8 
a StartArgle dc i'00! 
ArcAngle de 1101 
F de i‘20' 
Bibliographie s Lo 
nécessaire ; , 
strptr str ‘hello 0123"  ;chaine dutype Pascai{ascifbas) 
Clefs pour Apple IIGs (PSI) en 
Rom tools (Apple) 
a: buffer dc h'EAEAEAEA" 
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nothing anop :ne ren faire qdstartok anop _. 
sr jmp emul : EN QDinit 
NE===RMSSSSSSSS-==CSSMMMSSS==X 
ému! anop stevi'ent en mode émuiation deja inst  anop 
GrafOn 
sep £$30 5 " 1 
mp eu 
an = mm mm mn RES SSSSSDMMMMESSSSE === 
xce 
rts ; AX 8bits cé de 
jsr natif 
nome se _Grafoff 
ss = penses : Dshutdown 
i passage en mode natif -0 
natif anop passag) mp emul :FINgdoft 
cle a 
*ce ;natit | Rs Re eee 
rep £$30 :AX16 at anop 
Tts jsr natif 
Æm======>=-——-2mmmmEDErœmmes * 
=== pushword A 
getmyID anop srécupère le numéro pushword V 
pha : IDentification affectée par PRODOS16 _MoveTo 
pushlong £0 jmp emul ; 
pushlong £$800 === mm MESURE 
_Findhandle print anop 
tsc jsr natif 
tcd 
ldy £$56 pushlong £Estrptr 
Ida f$01],y _DrawString 
sta >Myid 
pla jmp emul ; fin Print 
pla H=—===SSSSS===== MMS 
SetPenMode anop 
pid jsr natif 
rts pushword color 
__SetPenMode 
Ra=====-— === * 
*#*# LES FONCTIONS ETS jme emul 
Hana SRE em m=Z=Z===——— ss 
initæd anop GrafOff anop 
jsr natif jsr natif 
pushword £0 _GrafOff 
_QDStatus 
Pla jmp emul 
bne deja inst === MMMESSSS ESS ESS 
SetSolidPenPat anop 
jsr getmyid jsr natif 
ToolsLoaded anop pushword color 
pushliong £0000 _SetSolidPenPat 
pushiong £$e12900 
_FindAandle jmp emul 
_Disposekandle H===2TE === MMM SE 
SetTextFace anop 
jsr natif 
cont1 anop 
PuskhWord £$800 pushword Textface 
PushWord £00 : 320 : _Set TextFace 
PushWord £160 : nombre d'octets par ligne 
PushwWord >MyID jap emui 
_QDStartup Amon MMMESNSMMES ESS 
bcc qdstartok SetTextMede anop 
brk $ff jsr natif 
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pushword textmode 
_Set TextMode 


jmp emul 


=== ESESESSEMMENSS======= 





SetForeColor anop 
jsr natif 


pushword color 
_SetForeColor 
jmp emul 
À om que open ges que ce EEE Me MU EN EU EU IN EE SEEN IN MMS EN EEE ES EEE SES SE EEE 
LineTo an0p 
jsr natif 


pushword H 
pushword V 
_LineTo 


InvertRect anop 
jsr natif 


pushlong £frectptr 
_InvertRect 


: FIN drawrect 
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1 ::::: REM ============================ 

2 ::::: REM == exemple d'utilisation == 

3 ::::: REM == de QuickDrawII du GS == 

4 ::::: REM == sous Basic par LPH(87) == 
(avec JV et DDEP) 

5 ses: REM ========2222 ue 


7 REM Loi 

CINE 

9 IF PEEK (104) = 16 THEN 50 

10 POKE 103,1: POKE 104,16: POKE 16 * 25 
6,0 

15 PRINT CHR$ (4);"bload qd.bin": 

20 PRINT CHR$ (4);"-qd.sample" 

50 DIM TXTS (4) :QD = 11 * 256: PRINT CHR 
$ (4); "pr£3": PRINT : PRINT : PRINT " 

Exemples d'utilisation de Quic 

kdrawII sous le Basic“ 


V,H,VI,H1,V2,H2,T$,S,C, QD 


51 TXT$S(1) = "Copy":TXTS$S(2) = "Or":TXTS (3 
) = "Xor":TXTS$S(4) = "Bic" 

60 : GOTO 10000 

100 : 


1000 : CALL QD: REM InitQuickdraw 


1010 RETURN 

JOHN 

1100 : CALL (QD + 3): REM QuickdrawOff 
1110 RETURN 

11208 

1200 : REM $$S$S$ At (H ,V }) 
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PaintRect anop 
jsr natif 


pushlong £rectptr 
_PaintRect 


jnp emul 
RE=======———— M MMS 
PaintArc aäanop 

jsr natif 


pushlong £rectptr 
pushword StartAngle 
pushword ArcAngle 
_PaintArc 





SetBackColor anop 
jsr natif 


pushword color 
_SetBackColor 


& : de 00 à 320 
V : de 00 à 200 
1210 POKE (QD + 71),V / 256: POKE (QD + 
70),(V - 256 * PEEK (QD + 71)) 
1220 POKE (QD + 69),H / 256: POKE (QD + 
68), (H - 256 * PEEK (QD + 69)) 
1230 CALL (QD + 6): 
1240 RETURN 
1299 : 
1300 : REM $SS$S$$ Print (t$) 
1310 POKE (QD + 72), LEN (TS): 
1320 FOR I = 1 TO LEN (TS) 

1330 POKE (QD + 72 + I), ASC ( MIDS (T$, 
7, dm 
1340 NEXT : 
1350 RETURN 

1399 : 
1400 : REM S$SSS SetPenMode (C) 
00..03 S8000..S$8003 
1410 POKE (QD + 51),0 
1420 IF C > 128 THEN POKE (QD + 51),128 
:C =C- 8 * 16 * 256: 
1430 POKE (QD + 50),C 
1440 CALL (QD + 12) 
1450 RETURN 
1499 : 
1600 : REM SS$SS SetSolidPenPat (C) 
00..15 
1610 POKE (QD + 51),0: POKE (QD + 50),C: 
CALL (QD + 18) 
1620 RETURN 
1699 : 


CALL (QD + 9) 


———————— 
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1700 : REM SS$S$ SetTextFace (C) 
00..03 suivant la version de QDII 


1710 POKE (QD + 53},C / 256: POKE (QD + 
52) (CN ES ON PEER (CODEC 53) 

1720 CALL (QD + 21) 

1730 RETURN 

1799 

1800 : REM $$$$ SetTextMode(C) 

0..3 $8000..$8003 

1810 POKE (QD + 55),C / 256: POKE (QD + 

54), (C.= 256.  PEEK (QD 5 55)) 


1820 CALL (QD + 24) 
1830 RETURN 
1899 : 
1900 : REM SSSS SetForeColor(C) 
00-15 
1910 : POKE (QD + 51),0: POKE (QD + 50),C 
: CALL (QD + 27) 
1930 RETURN 
1999 : 
2000 : REM $$$$ LineTo(E, V) 
2010 POKE (QD + 71),V / 256: POKE (QD + 


70), (V - 256 * PEEK (QD + 71}) 

2020 POKE (QD + 69),H / 256: POKE (QD + 
68), (H - 256 * PEEK (QD + 69)) 

2030 CALL (QD + 30) 

2040 RETURN 

2099 : 

2100 REM SS$SS$S InvertRect (V1, H1,V2,H2) 
2110 POKE (QD + 57),V1 / 256: POKE (QD + 
56),(VI1 - 256 * PEEK (QD + 57)) 
2120 POKE (QD + 59),H1 / 256: POKE (QD 
58),(H1 - 256 * PEEK (QD + 59)) 
2130 POKE (QD + 61),V2 / 256: POKE (QD 
60), (V2 - 256 * PEEK (QD + 61)) 
2140 POKE (QD + 63),H2 / 256: POKE (QD + 
62), (H2 - 256 * PEEK (QD + 63)) 

2150 CALL (QD + 33) 

2160 RETURN 

2199 : 

2200 REM SSS$SS$S PaintRect(Vi,H1l,V2,H2) 

2210 POKE (QD + 57),(V1 / 256): POKE (QD 
+ 56), (V1 - 256 * PEEK (QD + S5S7)) 
2220 POKE (QD + 59),H1 / 256: POKE (QD + 
58),(H1 - 256 * PEEK (QD + 59)) 

2230 POKE (QD + 61),V2 / 256: POKE (QD + 
60), (V2 - 256 * PEEK (QD + 61}} 

2240 POKE (QD + 63),H2 / 256: POKE (QD + 
62), (H2 - 256 * PEEK (QD + 63)) 

2250 CALL (QD + 36) 

2260 RETURN 

2299 : 

2300 REM S$S$SS$SS$S PaintArc(V1l,Hl,V2,H2,S, 
C): rectangle, startangle, angle 

23010; 

2310 POKE (QD + 57), (VI / 256): POKE (QD 
+ 56), (V1 - 256 * PEEK (QD + 57)) 
2320 POKE (QD + 59),H1 / 256: POKE (QD + 
58), (H1 - 256 * PEEK (QD + 59)) 

2330 POKE (QD + 61),V2 / 256: POKE (QD + 
60), (V2 - 256 * PEEK (QD + 61)) 

2340 POKE (QD + 63),H2 / 256: POKE (QD + 
62),(H2 - 256 * PEEK (QD + 63)) 


+ 


+ 


2350 POKE (QD + 65),S / 256: POKE (QD + 
64),S - 256 * PEEK (QD + 65) 

2360 POKE (QD + 67),C / 256: POKE (QD + 
66),C - 256 * PEEK (OD + 67) 


2370 CALL (QD + 39) 
2390 RETURN 
2399 : 
2400 : REM SS$SS$S$S SetBackColor(C) 
00-25 
2410 POKE (QD + 51),0: POKE (QD + 50),C: 
2420 CALL (O0D + 42) 
2430 RETURN 
2499 


5000 REM ++++ Cartouche(Vil,H1i,V2,H2,C 
) bouton type ombre 

5005 S$ = C:C = 0: GOSUB 1600 

5010 V1 = VI + 2:H1 = H1 + 2:V2 = V2 + 2: 
H2 = H2 + 3: GOSUB 2200 

5015 C = S: GOSUB 1600 

5020 VI = V1 - 2:H1 = H1 - 2:V2 
H2 = H2 + 3: GOSUB 2200 

5025 C = 15 - S: GOSUB 1600 

5030 VI = V1 + l:H1 = H1 + l:V2 
H2 = H2 - l: GOSUB 2200 

5035 VI = V1 - l:H1 = H1 - 1:V2 
H2 = H2 + 1 

5040 C = S: GOSUB 1600 

5090 RETURN 

5099 : 

5100 : REM ++++ Centertexte(tS) 


Il 
N 
l 
ND 


V2 = 1 


V2 + 1 


5150 H = H1 + (H2 - H1) / 2 - ( LEN (T$) 
#03 5) 

5160 V = VI + (V2 - Vi) /2 +3 

5170 GOSUB 1200: 

5180 GOSUB 1300 

5190 : RETURN 

5199 : 

9000 : 

9010 


10000 GOSUB 1100: GOSUB 1000: REM 

***#*ttt DEBUT DE L'EXEMPLE *#*#*%##+4% 

10010 C = 5: GOSUB 1600 

10020 V1 = O:H1 = 0:V2 = 200:H2 = 320: GO 
SUB 2200 

10030 : 

10040 FOR VI = O0 TO 198 

10050 C = C + 1: GOSUB 1600: IF C = 15 TH 
EN C = -1 

10060 V2 = VI + 2: GOSUB 2200 

10070 NEXT 

10080 : 

10090 FOR C = O0 TO 3: GOSUB 1400: REM 
chgt PenMode 

10095 V1 = C * 50:V2 = V1 + 50:H2 = 320 

10100 FOR H1 = 319 TO O STEP - 1 

10110 C = C + 1: GOSUB 1600: IF C = 15 TH 
EN C= -1 

10120 GOSUB 2200:H2 = H2 — 1 

10130 NEXT H1 


10140 H = (C * 70 + 2):V = 25 + V1: GOSUB 
1200 

10150 :TS = "PenMode " + TXTS(C + 1): GOS 
UB 1300 
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10160 NEXT C 10860 NEXT C: 





101700 10870 NEXT FO 
10200 FOR I = 1 TO 4: 10890 : 
10210 VI = O:H1 = O0:V2 = 200:H2 = 3200: G 10899 : REM ---- exemple d'utilation 
OSUB 2100 de Centertexte --- 
10220 NEXT 10900 :C = 12: GOSUB 1600:V1 = 0:H1 = 0:V 
10299 : 2 = 200:H2 = 320: GOSUB 2200 
10300 C = 0: GOSUB 1400 10910 V1 = 090:V2 = VI + 20::H1 = 090:H2 
10310 FOR V1 = O0 TO 85 STEP 5 = H1 + 150:C = 4: GOSUB 5000 
10320 C = V1 / 5: GOSUB 1600 10915 C = 11: GOSUB 2400 
10330 V2 = 200 - V1:H1 = V1:H2 = 320 - H1 10920 T$ = "Couleur": GOSUB 5100 
: GOSUB 2200 10921: 
10340 NEXT V1 10940 FOR CO = 15 TO O0 STEP - 1 
10499 : 10950 C = CO: GOSUB 1900: GOSUB 5100 
10500 C = 10: GOSUB 1600 10960 NEXT CO 
10510 C = 2: GOSUB 1400 11000 : 
10520: ‘EOR:S = 0 TO 359 STEP 10 11010 FOR TM = O0 TO 02:REM TextMode 
10530 C = 11: GOSUB 2350 11015 C = 04: GOSUB 5000:C = 11: GOSUB 24 
10540 GOSUB 2370: 00 
10550 NEXT S: 11020 C = TM: GOSUB 1700:T$ = "Texte Styl 
10600 S = 0:C = 08: GOSUB 1600:C = 0: GOS e" + STRS (TM) 
UB 1400 11040 GOSUB 5100 
10610 FOR C = 0 TO 360 STEP 9 11050 FOR I = 0 TO 600: NEXT I 
10620 GOSUB 2350 11090 NEXT TM 
10630 NEXT 11095 T$ = "LineTo sample": GOSUB 5100 
106 I0 M EOR I = MIN TO 3: V1 0 HIMENONVE2n = 11099 : 
200:H2 = 320: GOSUB 2100: NEXT 11100 :REM ==== LineTo sample === 
10697 : 11110 C = 0:V1 = 0:H1 = 0:V2 = 200:H2 = 3 
10698 : 20: GOSUB 2300 
10699 REM exemple d'utilisation de 11120 
CARTOUCBE 11125 FOR MODE = 3 TO O0 STEP = l:C = MO 
10700 C = 5: GOSUB 1600: DE: GOSUB 1400 
10710 : GOSUB 2200 11130 PEORIN= ONTOR2I00 STEP. 27: 
10711 :T$ = "Cartouche" 11140 V = I:H = 0: GOSUB 1200 
10798 : 11150 C = ABS (15 - I / 13)j: GOSUB 1600 
10799 FOR FO = 0 TO 15:C = FO: GOSUB 240 11160 V = 0:H = 320 - I * 1.6: GOSUB 2000 
0: 11170 V = 200 - I::H = 320: GOSUB 2000 
10800 FOR C = O0 TO 15 11180 V = 200::H = I * 1.6: GOSUB 2000 
10810 V1 = 2 + C * 12:H1 = 30:V2 = VI + 1 11185 V = I::H = 0: GOSUB 2000 
2:H2 = H1 + 100: 11190 NEXT I 
10820 : GOSUB 5000: REM --- CARTOUCHE 11192 NEXT MODE 
gauche --- 11693mue 
10821 : GOSUB 5100 11194 V1 = 090:V2 = V1 + 20::H1 = 090:H2 
108 IO0ICE Cr F1 = H1l + 150:C = 3: GOSUB 5000 
10840 V1 ANG FC LI) #4 12H10 = 1702 11195 :T$ = "The End'":C = 12: GOSUB 2400: 
V1 + 12:H2 = H1 + 100: GOSUB 5100 
10850 : GOSUB 5000: REM --- CARTOUCHE 11199 : 
droite --- 19999 : 
10851 : GOSUB 5100: 20000 GET AS: GOSUB 1100 
/ e e 0B20:0C 4C 03 OD 4C 16 0D 4C 0B88:00 00 00 00 00 00 00 00 
Récapitulation 0B28:29 OD 4C 44 OD 4C CF 0B 0B90:00 00 00 00 00 00 00 00 
QD.BIN 0B30:00 00 05 00 O1 00 00 00 0B93:00 00 00 00 00 00 00 00 
0B38:0A 00 OA 00 64 00 64 00 0BA0:00 00 00 00 00 00 00 00 
0B40:00 00 OA 00 14 00 14 00 0BA8:00 00 00 00 00 00 00 00 
Après avoir saisi celte récapitulation 0B48:0A 68 65 6C 6C 6F 20 30 0BB0:00 00 00 00 00 00 00 00 
sous moniteur, vous la sauvegarderez par :  0B50:31 32 33 00 00 00 00 00 0BB8:00 00 00 00 00 00 00 00 
BSAVE ODBIN, A$BOO, L597 0B58:00 00 00 00 00 00 00 00 0BCO:00 00 00 Q0 00 00 00 00 
0B60:00 00 00 00 00 00 00 00 0BC8:00 00 00 EA EA EA EA 60 
0B00:4C FD 0B 4C 50 OC 4C 64 0B68:00 00 00 00 00 00 00 00 OBDO:E2 30 38 FB 60 18 FB C2 
0B08:0C 4C 79 OC 4C 8C OC 4C 0B70:00 00 00 00 00 00 00 00 0BD8:30 60 0B F4 00 00 F4 00 
0B10:9D OC 4C AA 0C 4C BB 0C 0B76:00 00 00 00 00 00 00 00 0BE0:00 F4 00 00 F4 00 08 A2 
0B18:4C CC OC 4C DD 0C 4C EE 0B80:00 OO 00 00 00 00 00 00 0BE8:02 1A 22 00 00 El 3B 5B 
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30 
D5 
22 
DA 
F4 
1A 
22 
00 
00 
ET 
à2 
DO 
22 00 
00 00 
0B AD 


06 
68 
00 
El 

00 
F4 
00 
E1 
A0 
04 
00 
22. 
D5 
Ei 

4C 


00 
68 
00 
68 
00 
00 
El 
F4 
00 
02 
EF 
00 
0B 
A2 
DO 


8F 
20 
06 
20 
00 
02 
10 
F4 
0B 
00 
0B 
4c 
0B 
22 
D5 


0B 
0B 
00 
0B 
E1 
22 
00 
00 
48 
90 
04 
0B 


01 
60 
04 
39 
00 
A2 
02 
08 
30 
00 
DO 
E1 
04 
03 
20 


0BF0:A0 
0BF8:00 
0C00:F4 
0C08:00 
0C10:F4 
0C18:00 
0C20:00 
0C28:00 
0C30:Fr4 
0C38:A2 
0C40:02 
0C48:04 
0C50:20 
0C58:00 
0C60:E1 


0C68: 


44 
0C70:04 
0C78:0B 
0C80:48 
O0C88:E1 
0C 90:32 
0C98:00 
0CA0:A2 
OCA8:D0O 
0CB0:48 
0CB8:4C 
0CC0:0B 
OCCB:E1 
0CD0:36 
0CD8:00 


0B 
3. 
20 
0B 
4C 
0B 
El 
04 
0B 
A2 
DO 
48 
4C 
0B 
El 


48 
22 
D5 
A2 
DO 
48 
4C 
0B 
20 
04 
0B 
A2 
DO 
48 
4C 


AD 
00 
0B 
04 
0B 
A2 
DO 
22 
D5 
37 
20 
04 
0B 
A2 
DO 





0B 48 A2 OCE0:AD 32 0B 48 A2 04 A0 22 
El 4C DO OCE8:00 00 El 4C DO 0B 20 D5 
00 00 F4 OCFO:0B AD 44 OB 48 AD 46 0B 
22 00 00 OCFB:48 A2 04 3C 22 00 00 El 
D5 0B AD 0D00:4C DO 0B 20 D5 0B F4 00 
2E 22 00 0D08:00 F4 38 0B A2 04 56 22 
20 D5 0B 0D10:00 00 El 4C DO 0B 20 D5 
00 El 4C 0D18:0B F4 00 00 F4 38 0B A2 
AD 32 0B 0D20:04 54 22 00 00 El 4C DO 
00 00 E1 0D28:0B 20 D5 0B F4 00 00 F4 
0B AD 34 0D30:38 0B AD 40 OB 48 AD 42 
22 00 00 0D38:0B 48 A2 04 63 22 00 00 
D5 0B AD 0D40:E1 4C DO 0B 20 D5 O0B AD 
9C 22 00 0D48:32 0B 48 A2 04 A2 22 00 
20 D5 0B 0050:00 El 4C DO 0B 





1 ne s'agit pas d'un 
accessoire de bureau type 
GS maïs plus modestement 
d'un programme WPL qui 
permet l'exploitation de la 
carte horloge depuis votre 
traitement de textes préféré. 
Si vous avez une carte Speedisk, 
vous saurez l'heure actuelle, 
sinon vous connaîtrez une heure 
vieille de 3 ou 4 secondes. 





Le mode d'emploi est simple : 
faire : 

<ctri-P>DO HEURE 

L'heure, sous la forme 10:58 est 
insérée à l'emplacement du 
curseur. Faites à nouveau : 


<ctrl-P>DO HEURE 
l'heure est effacée. 


Seule contrainte : il faut avoir 
dans le catalogue courant un 
sous-catalogue nommé ‘N° 
réservé au seul usage de la 
récupération de l'heure. Ce 
sous-catalogue contiendra un 
fichier composé de ‘#** 
uniquement. 


Bien sûr, il sera plus confortable 
de mettre l'ordre WPL dans une 
commande glossaire : vous aurez 
l'heure sous la pomme. . 


Fichier HEURE 


*PND 


*PCS/$a/*/ 


°e PGO* 


F//#*/ 


*0? 
Qi=) 


°F/**/ 


.? 


* SN/N, * 


+0 
*UU 

+ OAN£ 
7 


°D 


°FISSS$S2££I2*! 


20? 
HW 
° UUU 


pIxAUæx] 


Ce)" 
°D 
HW 


*PAS*=$A 


°PQT 
* «D 
°WWU 


*PAS-SA 


Lyda PÂtkovd 


Stoppe l'affichage. 

Si le pointeur $A est *, 

aller à l'étiquette *. 

Met dans le texte le repère ** 

à laplace du curseur. 

Début page texte et direction > ligne de statut. 
Retourne au repère **. 





Sauvegarde, dans le sous-catalogue N, le fichier N 
ne contenant que le repère **. 

2jtèches de droite : passe devant l'e repère ** 
Charge le catalogue en mémoire texte. 


Change la direction ligne de statut : <. 

Remplace la fin du catalogue jusqu'à l'heure de 
modification par un nouveau repère **. 

Met dans le buffer texte l'heure et un espace. 
Débplace le cureur vers la droite, après le repère **. 
Supprime tout ce qu'il y a entre les repères, 
repères inclus. 

Change la direction ligne de statut : >. 

Remet l'heure et l'espace du buffer dans le texte. 
Init'alise le pointeur $A. 

Fin d'un premier appel. 

Second appel : change la direction. 
Supprime l'heure. 

Vide le pointeur $A. 


| 
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Source ONLINE.S 


Assembleur Merlin Pro 


BASIC KBD 


CNTR = $18 
IN = S$200 
BUFFER a $200 ;Utilisons IN comme buffer 

DO BASIC 
EXTRNCMD = SBE06 Vecteur vers commande externe 
ERROUT F $BE09 Traitement d'erreur 
XTRNADDR = $BE50 ‘Adresse de la commande externe 
XLEN _ $BE52 ;longueur - 1 de la commande 
XCNUM = S$SBE53 ;N° commande BASIC.SYSTEM (ext .=0) 
PBITS = $BE54 Drapeaux des paramétres requis 
BADCALL = SBE8B ;Convertit erreur MLI -> Basic 
SONLINE = $BEC6 “Liste parametres MLI pour ON LINE: 
SUNITNOM = $BEC7 ; Code de l'unité (00 = toutes) 
SBUFADR = SBEC8 ; Adresse du buffer 

FIN 
MLI = $BF00 “Point d'entrée du MLI ProDOS 
SERR = $BFOF ‘Code erreur MLI (00 = ok) 
BITMAP = SBF58 ;Schéma occupation mémoire 
PRBYTE = $FDDA ‘Affiche À en hexa 
COUT = SFDED Affiche le caractère dans À 
RTS = SFFS58 ;RTS connu en ROM 
On_Line EQU $CS5 ‘Référence de la routine On Line 


RRARRRRARRRRRÉRRRRRRRRRRRRRRR RÉ RÉ 

* 

* Code destiné à e ‘tre relogé avec CMDLOAD (cf POM'S 0} 
* syntaxe commande: "ONLINE", pas de paramètres 

* I1 faut charger CMDLOAD en $2000, ONLINE.CODE en $2100 
* et faire CALL 8192 pour installer la commande ProDOS 


* 


ORG $2100 Adresse àrbitraire ($2100 pour CMDLOAD) 
DO BASIC 
START CLD ;Convention avec ProDOS 


LDA £>PRGEND+$100 ;Convention avec CMDLOAD 
LDA £>PRGLEN+$100 


V_OLDCMD LDA RTS sAdresse commande précédente 

SEI ‘Inhnibe les interruptions 
ONLINCOM LDX £0 ;Verifie qu'il s'agit bien 
CHKCOM LDA IN, X sde notre commande 
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ui n'a jamais 
souhaité disposer 
sous ProDOS 
d'une commande 
donnant la liste 

=sde tous les 
volumes en ligne, comme le font 
AppleWriter, Merlin-Pro, etc. ? 
Ne serait-ce que pour connaître le 
nom de telle disquette, ou savoir 
si telle autre disquette est bien au 
format ProDOS….. 





Cette fonction existe au sein du 
noyau ProDOS : elle s'appelle 
ON_LINE. Mais elle n'est 
accessible que via le MLI 
(Machine Language Interface) 
qui, comme son nom l'indique, 
ne peut être appelé que par un 
programme machine, 


La routine ONLINE proposée ici 
affiche la liste de tous les volumes 
en précisant port, lecteur et nom 
d'accès de chacun d'entre eux. De 
plus, si une erreur survient lors 
de la lecture d'un volume, le 
programme affiche à la place du 
nom le code de l'erreur MLI 
spécifique à l'unité ayant 
provoquée l'erreur. Exemple : 

S6,D1: /MERLIN 

S6,D2: $52 

S3,D2: /RAM 


Nous voyons que la disquette (ou 
plutôt le volume) dans le lecteur 
2, port 6 n'est pas un volume 
ProDOS (c'est peut-être une 
disquette DOS 3.3, CP/M...). 
Les erreurs possibles sont les 
suivantes : 


$27 : erreur d'entrée/sortie (1/0 
ERROR) ; 

$28:pas de périphérique 
connecté (NO DEVICE 
CONNECTED) ; 
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_ ONLINE 


BADCOM 


ORA £$80 ‘Convertit en Ascii négatif 

CMP CMDSTR, X 

BNE  BADCOM ;Si pas notre commande 

INX 

CPX £6 #6 caractères correspondant? 

BCC CHKCOM ‘Non -> on continue 

CLI ;Autorise à nouveau les interruptions 
DEX 

STX XLEN 


LDA V_ONLINE+I ;C'est bien "ONLINE"! 

STA XTRNADDR ;alors on donne au BASIC.SYSTEM 
LDA V_ONLINE+2 ;l'ordre de l'exécuter 

STA XTRNADDR+1 


LDA £0 “Rem: on n'indique pas dans PBITS 
STA SERR ‘qu'aucun paramètre {,S,D,L...) 
STA XCNUM ‘n'est requis par ONLINE. 

STA PBITS Donc ONLINE, Sé,D1 ne provoguera 
STA PBITS+1 pas d'erreur mais seul "ONLINE" 
CLC rsera pris en compte 

RTS sRetourne vers le BASIC. SYSTEM 
JMP ONLINE sVecteur vers ONLINE 

SEC »Si ce n'est pas “ONLINE" 

CLI sRetourne avec C=1 


UJME (V_OLDCMD+1) ;et essaye comm. suivante 


FIN 


* Routine principale: 2 points d'entrées 


* 


ONLINE: 
ONLI NO: 


* 


LA 


liste tous les volumes 
affiche le nom du volume dans l'unité 


dont le code DSSS0000 est dans À 


* (D: drive 0-1, SSS: Slot 0-7) 


ONLINE 
ONLINO 


PRMADR 


ONLINZ 


SCANVOL 


LDA £0 ‘Balaye tous les volumes 

STA SUNITNUM rA = dsss0000 (d: drv, sss: slot) 
LDX £<BUFFER 

STX SBUFADR 

LDX £>BUFFER 

STX SBUFADR+1 

LDA BITMAP 

AND £$311011111 ;S'assure que la page 2 (IN) 


STA BITMAP rest marquée comme “libre 
JSR MLI Exécute la routine On Line 
DFB On_ Line -du MLI ProDOS 

DA SONLINE 

BEQ ONLINZ :2=1 si pas d'erreur 


DO BASIC 
JSR BADCALL ;Sinon, affiche le message 


UE ERROUT d'erreur fou gère ONERR) 
ELSE 

RTS Sort avec Z=0, C=1 et A= erreur 
FIN 

LDX £0 

LDA CNTR 

PHA 

LDA BUFFER, X Saisie le premier octet 
BEQ EOBUF #Si 00, alors fin 

PHA 

LDA £$8D {Sinon, nouveau volume 


$2E : disques échangés : fichier 
encore ouvert sur un autre 
disque ; 

$45 : impossible de trouver le 
répertoire du volume 
(VOLUME DIRECTORY 
NOT FOUND) ; 

$52:ce n'est pas un disque 
ProDOS (NOT À PRODOS 
DISK) ; 

$57 : nom de volume déjà utilisé 
(DUPLICATE VOLUME). 


ONLINE peut reconnaître jusqu'à 
16 volumes (c'est le maximum 
toléré par ProDOS). La routine 
utilise le buffer clavier 
($200-$2FF) comme espace de 
travail. Aucune adresse page zéro 
n'est modifiée. Enfin, il est 
intéressant de savoir que 
ONLINE prend moins de 256 
octets en mémoire. 


Lorsque ONLINES est assemblé 
(par MERLIN PRO), le système 
demande de donner une valeur à 
l'étiquette (label) "BASIC" 
(‘Give value for BASIC:"). Si on 
entre "1", le code objet produit 
sera celui d'une commande 
externe ProDOS nommée 
ONLINE", installée par 
CMDLOAD (voir la revue Pom's 
20). Si on répond "0" en 
revanche, le code produit est celui 
d'une simple routine machine 
appelée par CALL, ISR, BRUN, 
eiC. 


La commande 
OnLine 


Pour l'installer, il suffit de faire : 


— ONLINE.EXE 

{Ce fichier a été obienu en faisant : 
BLOAD ONLINE.CODE 

BLOAD CMDLOAD 

BSAVE ONLINE.EXE, A$2000,L512 
ONLINE.CODE est le résultat de 
l'assemblage de ONLINE.S option Basic, 
CMDLOAD est le relogeur d'A. Avrane 
{Pom's 20).} 


La routine sera relogée sous le 
BASIC.SYSTEM et la commande 
sera active et utilisable comme 
n'importe quelle autre commande 
de ProDOS. 


La syntaxe est : 
ONLINE 
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PRNAME 


SETDX 


EOBUF 


VOLERR 
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COUT 
£ PRET 
COUT 


£$#01110000 


ED" 
COUT 
LA 
COUT 
EU 
COUT 
£0 


F1" 
COUT 
sue 
COUT 
ue 
COUT 


BUFFER, X 


£$0F 


VOLERR 
CNTR 
De 
COUT 
BUFFER,X 
£$80 
COUT 


CNTR 


PRNAME 


£$OF 
CNTR 


CNTR 


SCANVOL 
£$8D 
COUT 
£$8D 
COUT 
CNTR 


£0 





‘Envoie un retour chariot 
Arche "Sc Das 


+ 
//e 
//et 
f/c 
Igs 


sIsoie le siot 





‘Convertit en chiffre ascii 


*B1t7 (drive)l=> € 

;Si C=0, alors drive l sinon drive 2 
;€C -> Bit @ de À, et bit 7 de À -> C 
mais bit 7 = 0, donc C = © 


;Jsole la longueur du nom 


;Si NameLength = 0, erreur 


*Sinon, on peut afficher le nom 


“Affiche le nom du volume 


:Calcule l'adresse 
;du nom de volume suivant 
;= adr. courante + (15-l1ong. nom) 


:Toujours pris si moins de 16 volumes 
On a liste tous les volumes 

on saute deux lignes 

;On restaure CNTR 


set on sort avec C=1 
#Z2=i et À = 0 


Affiche le code de l'erreër 





Tout ce qui suit (paramètres, S, 
D...) est ignoré par l'interpréteur 
du Basic.System. 


OnLine sans le 


Basic 
Correspond à l'option 
d'assemblage "BASIC = 0” 


(fichier ONLINE.OBJ non listé 
ici). La routine s'exécute à 
l'adresse “adr” indiquée par la 
directive "ORG" de l'assembleur 
(par défaut ici $2100). 


Un JSR adr (ou CALL adr) 
affiche la liste de tous les volumes 
connectés, alors qu'un JSR adr+3 
sélectionne un lecteur de disque 
particulier : en ce cas, mettre le 
code de l'unité dans 
l'accumulateur sous la forme 
DSSS0000, avec D = numéro du 
lecteur moins un (donc 0 ou 1)et 
SSS = slot (0-7). 


Si vous souhaitez exécuter 
ONLINE à une autre adresse 
‘adr' sans réassembler le source, 
il suffit de mettre en adr+$04, 
adr+$09 et adr+$0E le poids 
FORT de fa nouvelle adresse 
d'exécution (cela suppose que la 
routine se trouve en début de 
page, donc à une adresse de la 
forme $xx00, où xx est le poids 


fort de ‘adr'). 





InterPom's 
version 2.0 Ce 


o 


Des transmissions 
intelli 












Macintosh" 
et/ou 
IBM£et compatibles 


Bon de commande page 75 


— 



































— PARA ‘survenue durant la lecture 
LDA  £"S$" :du volume 
£ . e JSR COUT 
Récapitulation LDA BUFFER,X (code MLI hexa) 
ONLINE.EXE CR" Z 
PLA 
* bn 0 PT re TAX 
Après avoir saisi celte récapitulation Fe D rc citer 
sous moniteur, vous la sasvegarderez par : Bec" Bey Toners 
BSAVE ONLINE.EXE, A$2000,L512 
BRK :Fin du code à reloger (CI4DLOAD) 
2000:AD 00 &F C9 4C FO 05 A9 
2008:87 4c ED FD AD 42 BE F0 RRRRRRRRRRRRRRRRRRRARRRRRRARRRARÉR 
2010:05 A9 15 4C 09 BE AD 04 
2018:21 69 00 20 98 20 90 05 
2020:A9 OE 4C 09 BE CD 02 21 
2028:90 F6 AE 08 BE 8D 08 BE DO BASIC 
2030:8E 07 21 AE 0? BE 8E 06 CMDSTR ASC "ONLINE" ;Nom de la commande 
2038:21 AO 00 8C 07 BE 48 E9 PRGEND = di 
2040:21 85 3C 68 38 E9 04 85 PRGLEN = PRGEND-START+$100 
2048:74 A9 21 85 49 84 48 A0 ELSE 
2050:00 B1 48 FO 27 20 8E F8 SONLINE DFB 2 :Si pas de BASIC.SYSTEM 
2058:A4 2F CO 02 DO CF B1l 48 SUNITNUM DFB 00 ‘alors il faut notre propre 
2060:C9 21 90 03 CD 02 21 B0O SBUFADR DA BUFFER :ParmList 
2068:04 65 3C 91 48 A5 48 38 FIN 
2070:65 2F 85 48 A5 49 69 00 
2078:85 49 DO D3 AO 00 A9 21 
2080:84 3C 85 3D 18 6D 04 21 2100:D8 A9 22 A9 02 AD 58 FF 2180:70 4A 4A 4A 4A 18 69 BO 
2988:84 42 88 84 3E 85 3F AD 2108:78 A2 00 BD 00 02 09 80 2188:20 ED FD A9 AC 20 ED FD 
2090:08 BE 85 43 C8 4C 2C FE 2110:DD F7 21 DO 29 E8 EO 06 2190:A9 C4 20 ED FD A0 00 68 
2098:8D FB 20 A5 74 18 63 04 2118:90 F1 58 CA 8E 52 BE AD 2198:0A 98 2A 69 B1 20 ED FD 
20A0:8D FC 20 86 3D CE FC 20 2120:3C 21 8D 50 BE AD 3D 21 21A0:A9 BA 20 ED FD A9 AO 20 
20A8:F0 47 AD FC 20 8D FD 20 2128:8D 51 BE A9 00 8D OF BF 21A8:ED FD BD 00 02 E8 29 OF 
20B0:AD FD 20 48 4A 4A 4A AA 2130:8D 53 BE 8D 54 BE 8D 55 21B0:48 FO 31 85 18 A9 AF 20 
20B8:68 29 07 A8 B9 F3 20 3D 2136:BE 18 60 4C 43 21 38 58 21B8:ED FD BD 00 02 09 80 20 
20C0:58 BF DO El A5 3D DO 09 2140:6C 06 21 A9 00 8D C7 BE 21C0:ED FD E8 C6 18 DO F3 68 
20C8:B9 F3 20 1D 58 BF 9D 58 2148:A2 00 8E C8 BE A2 02 &E 21C8:49 OF 85 18 BA 18 65 18 
20D0:BF AD FC 20 38 CE FD 20 2150:C9 BE AD 58 BF 29 DF 6D 21D0:AA 90 SA A9 8D 20 ED FD 
20D8:ED FD 20 CO FB 20 DO DO 2158:58 BF 20 00 BF C5 C6 BE 21D8:A9 8D 20 ED FD 68 85 18 
20E0:A5 3D DO 07 18 AE FD 20 2160:F0 06 20 8B BE 4C 09 BE 21E0:18 A9 00 60 8A 48 A9 A4 
| 20E8:E8 8A 60 A9 00 85 3D FO 2168:A2 00 A5 18 48 BD 00 02 21E8:20 ED FD BD 00 02 20 DA 
20F0:B9 38 60 80 40 20 10 08 2170:FO0 61 48 A9 8D 20 ED FD 21F0:FD 68 AA 18 90 D1 00 CF 
20F8:04 02 01 00 00 00 AD 99 2178:A9 D3 20 ED FD 68 48 29 21F8:CE CC C9 CE CS FD BF 4C 
Impression avec Apple 
Le début d'impression d’un fichier, surtout la ligne du haut, est souvent perturbée par des caractères 
restés dans le buffer d'imprimante, en particulier après l’initialisation- caractères programmables ou 
autres - Ou bien espaces de marge de gauche d’une précédente impression. 
Pourrésoudre tous les problèmes de cetype, il suffit d'inclure au début de la ligne du haut le caractère 
<ctrl-X> qui a justement pour fonction de vider le buffer d'imprimante. Si vous n'’utilisez pas cette 
ligne, elle peut toutefois ne contenir que <ctrl-X> ou bien par exemple <ctrl-I>80N<ctrl-X><esc>E 
(configuration de l'interface, vidage du buffer, choix des caractères “ELITE”). 
Elle peutaussi contenir une ligne complexe initialisée parun fichier texte tel celui présenté ci-dessous. 
.LH*<Ctrli>B0N<X><esc>P<esc>'!'<esc>Xquartier'’rastaux’ RN 120 MOUSSAILLON 74 550 
Caurdes tél : 70.70.70.70 <esc>n<ctrl-N>J.POM'S<esc> q<ctrl-0> société 
nouvelle<esc>E <esc>Y<esc>"# 
{ ] 
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Pascal Duboin 





et utilitaire permet de 
visualiser le catalogue 
d'un disque formaté 
#” en DOS 3.3 avec 
quelques avantages par rapport à 
la simple commande utilisée par 
le DOS : 


+ visualisation des fichiers 
effacés ; 

+ visualisation des caractères 
de contrôle ; 

° visualisation des adresses de 
chargement des fichiers ; 

* tri du catalogue (11 options) ; 

+ défilement de haut en bas et 
bas en haut du catalogue ; 

* utilisation de la souris et de la 
carte 80 colonnes. 


E 


« + 
Petites annonces 





Vous êtes abonné ? Pom's 
ouvre gratuitement ses 
colonnes à vos petites an- 
nonces : vente, recherche 
de matériel ou de logiciel, 
contact, club... (Pour les 
ventes de logiciels, joindre 
la photocopie de la facture 
d'achat). 

Les annonces seront 
constituées de 250 carac- 
tères au maximum et 
préciseront obligatoire- 
mentletype de matériel, le 
prix et votre numéro de 
téléphone. 

Elles nous seront 
adressées par courrier ou 
messagerie CalvaCom 
(empl1). 








RE —.—…———” 
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*T 021 ARTICLE .POMS 


ÉT OO 


*#L 081 CATS.SOURCE ,LISA 
*T-001 FICHIER.EFFACE. 1 


:#A 005 PROG. BOOT 
*B 018 CATS & HOUSE 


FILES: 007 


EFFACES: 000 


Configuration 


Le programme requiert : 
- une carte 80 colonnes ; 
°__le microprocesseur 65C0 2. 


Leur présence est détectée 
automatiquement en début de 
programme. En cas de non 
installation, vous êtes invité à 
‘rebooter’ le système sur un autre 
disque par simple appui sur la barre 
d'espacement. L'interface souris n'est 
pas obligatoire, mais le programme 
actionne automakquement l'animal en 
cas de détection de ladite interface. Le 
cas échéant, il autorise simplement les 
ordres entrés au clavier. 


Utilisation 
Sélections 


Dans le menu principal, on 
sélectionne les options soit en se 
déplaçant à l'atde des flèches et en 
validant par Return, soit en déplaçant 
le curseur par un simple ‘clic’ et en 
validant par un double ‘clic’. 

Pour la sélection du lecteur de disques, 
le principe est le même avec, en plus, 
la possibilité de s'échapper par Escape 
ou par un simple ‘clic’ sur le bouton 
du coin supérieur gauche de la fenêtre. 
Ces deux dernières options se 
retrouvent bien évidemment tout au 
long du programme. 


LB. 264 NUMERO: C03 





TRI CATALOG 


REDEMARRER 





La suite est aussi classique pour les 
personnes ayant utilisé un Macintosh. 
Dans toutes les options d'affichage du 
catalogue, on peut se déplacer à l'aide 
des flèches du clavier ou celles 
dessinées à l'écran, mais vous avez la 
possibilité de vous déplacer 
rapidement en frappant un chiffre de O0 
à 9, (B} pour Begin, ou encore {E] 

pour End. 


Les utilisateurs de la souris ne seront 
pas lésés pour autant, car le mode 
déplacement rapide leur est accessible 
par simple ‘clic’ sur la bande de 
l'ascenseur. Ce mode de déplacement 
est déconnecté lorsque que l'option 
MOVING est activée. 


Le Tri 


Dans l'option de TRI vous pouvez 
changer le sens (ascendant ou 
descendant) par un ‘clic’ sur Le petit 
bandeau, ou en utilisant la barre 
d'espacement. Le choix de la méthode 
de tn est effectué en ‘cliquant’ sur les 
chiffres inversés ou en entrant un 
chiffre au clavier. 


Mise à jour 


Pour réécrire un catalogue trié, il 
suffit de ‘cliquer’ sur le drive 1 qui est 
situé en haut à droite de la fenêtre de 
travail. Les utilisateurs du clavier se 
contenteront de taper W. 








RE 











Une fenêtre d'alarine s'ouvrira, vous 
demandant de confirmer votre action 
soit en cliquant sur OK, soit en 
faisant Reiurn. Pour abandonner, il 
faut cliquer dans tout autre endroit de 
la fenêtre ou bien encore faire Escape. 

Cette procédure fonctionne pour toutes 
les fenêtres, d'alarmes 

En ce qui concerne la méthode de tri 
dite Personnelle, elle vous permet de 
placer vos fichiers dans l'ordre que 
vous aurez choisi. Pour cela, il 


convient de sélectionner un fichier à 
l'aide de l'une des diverses méthodes de 
déplacement énoncées plus haut et de 
cliquer sur le bandeau inversé, ou 
encore de frapper Return, ce qui aura 
pour effet de vous mettre en mode 
déplacement. 


Le mode ‘déplacement? 


Ce mode sera caractérisé par l'affichage 


de moving sur la ligne supérieure dela 
fenêtre de travail. Vous pourrez alors 
positionner votre fichier à 
l'emplacement de votre choix, et l'y 
fixer par un second ‘clic’ sur le 
bandeau ou Return. Pour réécrire le 
catalogue, la procédure est la même 
que dans les autres tris, c'est-à-dire : W 
ou ‘cliquer’ sur drive-: 1 et confirmer 


par Return où OK. 





Source 


FILENBE EP& 128 F STA LGN23,X 
Dos EPZ 132 INV -  $20 INX 
‘SOURCE. LISA d ÉILENUM EPZ 133 CURSOR - $42 INY 
MOYING EPZ 134 SABLE - 543 £PY £40 
NLS DELCLIC EPZ 135 FG - $8g 8cc <0 
. : FB =  $8A PLA 
Chonennnentrenereree FAC EP& 161 FA -  $8z STA LGN23+39 
+ THE FRENCH DISK. * : RTN =  $8v 
Pme * : ARITHMETIQUE APPLE CR -  $80 LOA £215 
* CATALOG EDITOR #* # F0 $95 JSR WAIT 
LÉ SORTING MENU k INTEGER E@U $E10C ESC - $38 
Rise | LR WULTI EAU $E982 SPC = 520 DEC TEMPO+1 
* le 25 Mai 87 * DIVISE EQU $EA69 + EPL Ti 
érannonranetaneenre ARG #QU SEB63 BUFFER  EQU $8000 LDX 128 
* SIGNE SOU $EB60 ADRTSL EQU $8100 LOA £SPC 
; VARIABLE EN PAGE ZERO FLOAT BQU $EB93 ADRSTK  EQU $8200 “0 STA LGNIO+#6.X 
f) INT EQU $EC23 LENGRT  EQOU 59200 DEX 
DRIVE EPZ 2 : START EQU $9300 RPL <0 
TRACK EPZ 4 : ROM MONITEUR TSL EQU $9400 
SECTEUR EP8 5 : ; DEC TEMPO 
DATA EPz 8 COL80 EU $C300 OPCODE 6502C BPL Ti 
co EPz 12 BOOTD EQU $C600 : SMI TO 
+ PRAX EQU $F541 INA —  $IlA # 
INDEX EP& 21 VTAB EQU 5FB58 DEA - $3A BEGIN: 
LEVEL1 EP2 22 TEXT £00 $FEB2F TRB -  $ic LDA £BEGIN 
TSENS EPZ 23 BASCALC EQU $FBCI STZ -  $64 STA RBO@T 
STYLE EPZ 24 HOME EQU $FC58 PHX = $DA LDA /BEGIN 
PTR EP£ 25 CROT SOU $EC62 PLX = SFA SFA RB800T+1 
£ IDENT SOU $FC71 ; £EOR £$A5 
CH] EP2Z 27 WAIT EQU $FCA8 ORG $800 STA RB00T+2 
Cv1 EPZ 28 PRB EQU $FDDA OBJ 5800 
z cour EQU $FDF6 ; VSR COL80 
LEFT EP2 32 INVERSE EQU $PE80 TEST: 
RIGHT EP2Z 33 NORMAL  EQU $PE24 J£R HOME LDX 123 
TOP EP2 34 SCREEN  EQU $FE93 JSR $SCREEN r0 1DA F5 
DOWN EPZ 35 : STA $0, 
CH £PZ 36 : ADRESSES HARDNARE LOA CART80 DEX 
cv EP& 3? ; BMI TESTERR BPL <0 
: RBCOT  EQU $3F2 LDA IDENT 
BASL EP 2 40 MCH EQU 5478 CMP £APPLERC LDX £7 
STORE EPZ 44 VUODE EQU $S4rz BEO >0 *0 DEC £TR+1 
TEMP EPZ 46 MCY EQ@u $4F8 CMP EAPPLEZE DEX 
TEMP1 EP£ 48 MPXE EQU $4F8 “0 BEQ BEGIN BMI >1 
4 MPXE EQU $5F8 : LOY £12 
PDEC EPZ 68 MINL EQu $478 TESTERR: LDA (PTR),Y 
ICONE EP2 81 MINH seu $578 JSR PRINT CP £32 
MSLOT ZPZ 82 MSTAT EQU $778 8YT 23,10 BNE <0 
, : ASC "(PRESS SPACE TO LOY £251 
MAXCLIC EPE 84 LGN10 EQU 5528 BOOT) " LDA (PTR} Y 
MINCLIC EP& 85 IGU12 EQU $628 BRFK CMP £$D6 
TEMPO  EPZ 86 LGN22  EQU $750 + BNE <0 
OPTION EPZ 88 ICN23 EQU $700 To JSR PRINT LDA PTR«] 
; r BYT 10,6 STA MOUSE+2 
vorxi EP£& 85 KBD EQU $C000 ASC “< CARTE 80 STA MS+2 
VOIX2  EP2 90 STROBE  EQU $C010 CRLONNES & 6502c >" EOR £$C0 
IONGEUR EP& 91 CART80 £QY 5C017 EFK STA MSLOT 
; SPKR EU $C030 BNE MOUSEOK 
DELFIG EP2 92 4 LDA £6 4 
DELSET EP2 93 ; CONSTANTES STA TEMPO #4 LDA £$60 
LIGNFLG EPZ 94 : LDA £9 STA MSPRT 
HIDFLG EP& 95 SET “ 0 STA TEMPO+1 STA MOUSEPRT 
SETCUR  EPZ 96 SERVE 0 1 ; STA RDCURS 
d READ m2. Ti LDA KBD BNE TTL 
ALPHA EPz 125 CLEAR _ £] BPL T2 ; 
LOCK EPZ 120 POS . 4 JMP BOOT2 MOUSEOK : 
DEL EPZ 121 CLAMP = 5 ë LOX EMINIT 
WRTOK EP& 124 MHOMS 6 T2 LDA LGN23 JSR MOUSE 
: MINIT _ 7 PRA ê 
FILEOK EPZ 127 9 LDX £0 LDA £79 
DELETER EPZ 129 APPLEZC = 53 LDY £i STA MAXZ 
FRRE EPE 130 APPLEZE = 06 *0 LDA LGN23, Y LDA £I 
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INIT: 


20 


STA MINL 
BYT DER 
STA MINH 
STA MAXH 
LOX £CLAMP 
JSR MOUSS 


JSR PRINT 

EYT 0,255 

ASC * <- CA:S AND MOUSE 
= 4 

ASC ‘copycight in june 
1987 by  ‘ 

AS 'INTERET SOFTNARE & 
DOBOIN.P 

BRK 


JSR NIND 

BYT 1 

BYT 59,20,3,23 
JSR RSCUR 


BYT ST£Z,MOUVING 
BYT ST£, DBLCLIC 
BYT ST2, ALPHA 
BYT ST. OŒEL 
BYT STZ.DELFIC 
BYT S7T2,HIDFLG 
BYT ST2, LGNFLG 
LDX £62 

LDA €74 

JSR FIXCLIC 
LOX 1255 

STX NRTOK 


LOX #17 
JSR REVERT+3 


ASC " FILE LEN@AT*" 
ASC "FILE DSLETED*" 
ASC "HIDOEN TOXEN"" 
ASC "CATALOG SORT*"* 
ASC “ BOOT DISK #" 


ZDA INOEX 


AC £7 
£0X £11 
JSR REVERT 


JSR MOUSEPRT 
JSR FUNCTION 
BCC MSNU 


LDX INDEX 
CFX £5 

8EO >9 

JSR CHOISE 
1DX INDSX 
LDA MAINL, X 
STA TSMP 
LDA MAINH,X 
STA TEMP+i 
JMP (TEMP) 


MAINL: 


BAÏNH: 


#=ND: 


#0 


*g 


co 


ci 


LOX 


CATN 
CATL 
CA7D 
CATH 
SORT 
800T 


CAIN 
CATL 
CATD 
CATH 
SORT 
Boor 


£2 


$C412, X 
MS+1 
4C95C4 


TEMPO 


STORE+1 
C1 
TOP 


c2 


çc3 


C4 


*0 


RSCUR 


MOUSEPRT: 


22 
*0 
RDCURS 
ET 


CHGCUR 
ro 


INC RICHT 


LDa "2 
JSR COUT 
JSR MOUSEOFF 
ZDA "_ 

LDX STORE 
JSR COUT 
Gex 

BEL C2 

JSR MOUSEON 
DA _ 

JSA COUT 
DEC RIGHT 


LDA $IF 
BNE C4 


LDA TOP 
STA CV 
JSR SFC62 
INC CH 
INC CH 
LDA ‘2 
JSR COUT 
LDA "* 
JSR COUT 


JSR $rC62 
INC CH 
&DA "S 
LDX STORE 
JSR COUT 
DEX 

BPL C3 


JSR TEXT 
LDA PTR 
aDC £5 
TAX 

LDA PTR+1 
DC £0 
PHA 

SYT PHX 


JSR NORMAL 
LDA £4 
BNE >0 


JSR INVERSE 
LOA £1 

BYT TAB 

2DR VMODE 
RTS 


LBY MSLOT 
LBA MSTAT, Y 
ASL 

ASE 

BEL MOOSEPRT 
JiR MTAB 

JSR ROCURS 


JSR #TAB 
LOA STYLE 
Cæ £$1B 
BGE >0 
DEC ICONS 
ORA £$C0 
JSR COCT 
JSR PICKY 
JP >] 


JSR COUT 
LSY MSLOT 
L8a MCV,Y 
LOX MCH, Y 
STA Cvi 

STX CA 

JsP TAB 
JSR PICKY 
CHF £CURSOR 
BEC >0 

CH LSABLE 
BNE 21 

RTS 

STA STYLE 
LDA £CURSOR 
JP COUT 


Récapitulation 
‘CAT & MOUSE’ 


Après avoir saisi cete récapitulation 
sous morileur, 

vous la sanvegardrrez por : 

BSAVE CAT & MOUSE, 

A$800, L$1000 


0800:20 58 FC 20 93 FE AD 17 
0808:C0 30 08 AD 71 FC C9 35 
0810:r0 02 C9 06 FO 7F 20 91 
0818:0C 17 OA A8 D0 D2 CS D3 
0820:D3 AO D3 £0 CI C3 C5 A0 
0828:D4 CF AO C2 CF CF D4 A9 
0830:00 20 91 OC OA 06 SC A0 





0838:C3 C1 D2 D4 C5 AO 88 B0 
0840:A0 C3 CF CC CF CE CE CS 
0848:D3 A0 A6 A0 56 E5 B0 22 
0850:E3 A0 8E 00 A9 06 85 56 
0858:A9 09 85 57 AD 00 CO 10 
0860:03 4C BA OE AD DO 07 48 
0868:A2 00 AO 01 89 DO 07 9D 
0870:D0 07 E8 C8 CO 28 90 F4 
0878:68 8D F7 07 A9 D7 20 A8 


0880:FC C6 57 10 D7 AZ IC A9 
0888;:.40 9D 2E 05 Ca 10 FA C6 
0890:56 10 C9 30 9C A9 95 8D 
0898:F2 03 A9 C8 82 F3 03 49 
08A0:A5 8D F4 03 20 00 C3 A2 
08A8:1D BD D3 17 95 00 Ca 10 
0880:F8 A2 07 C6 1A CA 30 1E 
0888:A0 OC B1 19 C9 20 D0 F3 
08C0:A0 FB Bl 19 C9 D6 D0 EB 
08C8:A5 1A 8D 3E OA 8D 44 OA 
08D0:49 CO 85 52 DO OD A9 60 
08D8:8D 21 08 8D 30 OB 8D 58 
08E0:08 DO 33 A2 07 20 3C OA 
O08E8:A9 4F 8D F8 04 A9 O1 8D 
08r0:78 04 3A 85 78 05 8D F8 
08F8:05 A2 05 20 3C OA A9 16 
0900:8D F8 04 A9 O1 A2 05 20 
0908:3C OA A9 01 A2 00 20 3C 
0910:0A A2 06 20 3C OA 20 91 
0918:0C 00 FF 20 3C 2D 20 43 
0920:41 54 53 20 41 4E 44 20 
0928:4D 4F 55 53 45 20 2D 3E 
0930:20 20 63 6F 70 79 72 69 
0938:67 68 74 20 69 6E 20 6A 
0940:75 6E 65 20 31 39 38 37 
0948:20 62 79 20 20 20 49 4E 
0950:54 45 52 45 54 20 53 4F 
0958:46 54 57 41 52 45 20 26 
0960:20 44 55 42 47 49 4E 2£ 
0968:50 20 00 20 8F OD 20 45 
0970:0A 01 38 14 03 17 20 2A 
0978:0B 64 86 64 87 64 7D 64 
0980:79 64 5C 64 5F 64 5E A2 
0988:3E A9 4A 20 00 OC A2 FF 
0990:86 7C 9A 20 91 Œ 03 3C 
0998:A0 AO C3 C1 D4 Ci © CF 
09A0:C7 AO C5 C4 C9 D4 CF D2 
09A8:A0 AO 00 A2 II 20 48 OC 
0980:20 91 OC 07 3E AO AO AO 
09B8:CE CF D2 CD C1 CC AO A0 
09C0:A0 DE AO C6 C9 CC CS A0 
09C8:CC CS CE C7 C8 D4 DE C6 
09D0:C9 CC C5 AO C4 C5 CC CS 
09D8:D4 C5 C4 DE C8 C9 C4 C4 
09E0:CS5 CE A0 D4 CF CB C$ CE 
09E8:DE C3 C1 D4 C1 CC CF C7 
09F0:A0 D3 C£ D2 D4 DE AO C2 
09F8:CF CF D4 AO C4 C9 D3 CB 
0A00:A0 AO 00 18 A5 15 OA 69 
0A08:07 A2 OB 20 45 OC 20 30 
0A10:08 20 72 08 90 9A A6 15 
0A18:E0 05 FO 05 20 05 OE A6 
0A20:15 BD 2E OA 85 2E BD 34 








Pom's n° 33 





1 








LE EE RE CO 


Pom's n° 33 


92 








Le: 


4 


DESC 


RETURN 


0 


CLIC.OK: 


rû 


S1. 


#2 
az 
LS 


‘0 


INPUTZ 


STYLE 
£TNV4+] 
RETURN +4 


IDX, x 
>2 


FUNCTION 


INDEX 
STYLE 
£$3F 

STYLE 


7,9,11,13,15,17 


INDEX 
£F0 
DESC 
£EE 
OTHER 


£6 
>0 
£0 


INDEX 


£EG 
MONT 
£FH 
RETURN 


INA 
VOIxI 


VOIx2 
LONGEUR 
SOUND 
VoIx1 
VOIx2 
TEsP 

<0 


FIXCLIC: 


*0 


MOUSEMVE : 


BOUTONS : 


+0 


PICKY: 


*0 


A} 


RTS 


STX MINCLIC 
STA MAXCLIC 
BYT S57T2,DBLCLIC 


BMI >0 


LOA £25$ 
STA DBLCLIC 


IDA KgD 
BPL (MOCSENVE 


STA STRQLE 


JR XNREAD 
LDY MSLOT 
LDA MSTAT, Y 


BPL BOUTONS 


JSR MOUSEPRT 


LDY MSLOT 
LDA MSTAT, Y 
BPL INPUY2 
BIT OBLCLIC 
BMI >1 


BMI INPUT2 


LDX CHi 

CPX MAXCLIC 
BGE INPUÜTZ 

CPx MINCLIC 
BLT INPUT2 


TAY 

EDA (BASL),Y 
BIT ICONE 
EL >1 

AND £$3F 
STA (BASL),Y 


EYT SY2,ICONE 
STE $C054 
RTS 


ré 


ES? 


=” 


*2 


c3 


Sg 


CR 
25 


STA PTR 


STA PTR+I 
1LDY £1 


LOA (PTR),Y 
JSR VTAB 


LOA (PTR),Y 
STA CN 
STA STORE 


INY 
LOA (FTR),Y 
BE2Q PR? 


CH 1255 
BNE >6 
INY 

BNE PR 


CMP £253 
BNE >8 

INY 

LOA (PTRI,Y 
rAx 

INY 

LOA (FTR),Y 
JSR ŒUT 


BPL <7 
BMI PR2 


me *” 
BEQ »9 


JSR DAV ASC 
STA STRI+I 
LDX £8 

LDA STRI,X 
JSR COUT 


0A28:0A 
0A30:DF 
0A38:15 
0A40:43 
0A48:68 
OA50:1E 
0A58:90 
0A60:FC 
0A68:FD 
OA7O:AS5 
0A78:FD 
0A80:10 
0A88:22 
0A90:A4 
0A98:20 
OAAO:DF 
OAA8:ED 
OABO:84 
0AB8:20 
OACO:DA 
OAC8:DF' 
OADO:FA 
O0AD8:FD 
OAE0:22 
O0AE8:E6 
OAFO:DE 
OAF'8 :24 
0B00:CA 
0808:69 
0B10:DA 
0B18:20 
0B20:60 
0B28:10 
0B30:20 
0B38:0D 
0B40:20 
0B48:F0 
0850:04 
0B58:20 
0860:43 
0B68:4c 
0B70:8B 
0B78:18 
0B80:05 
0B88:F8 
0B90:15 
0B98:60 
OBAO:15 
0BA8:0B 
0BB0:86 
OBB8:C39 
08CO:06 
O0BC8:A9 
0BD0:85 
0808:59 
OBE0:59 
0BE8:30 
OBF0:90 
OBF8:A4 
0C00:86 
0C08:00 
0C10:85 
0C18:8D 
0c20:52 
0c28:20 
0C30:10 
0C38:D9 
0C40:55 
0C48:c6 
0c50:2C 
0c58:c1 
OC60:AD 
O0C68:28 
0c70:28 
0C?8:F6 
0C80:A0 
0C88:29 
0cC90:60 
0c 98:01 
OCAD:19 


F6 


À À 


FD 


F'6 


20 5B 
85 2C 


0F 


FB 
ca 


FD 








BSPL <5 
HIT LOT 
BEC PR3 
JSR MTAB 
LDA £SABLE 
JSR COUT 


PR3 


ASC * sevird' 
ASC "GOLATAC ” 


STA CH 
STX PDEC 


JSR LS 
JSR DEC255 
JP NORMAL 
DEC255: 
BYT ST2,PDEC+1 
STA PDEC 
DEC512: 
LOY £0 
Qi LDÀ PDEC 
SEC 
SBC £100 
STA PDEC 
LDA PD&C+1 
SBC £0 
STA PDEC+1 
BCC >1 
INY 
BNE <0 
LL LDA PDEC 
ADC £100 
STA PDEC 
JSR CUT2 
LDY £0 
LDA PDEC 
F2 5 
sBC £10 
BCC >3 
STA PDEC 
INY 
BCS <2 
FE) JSR OUT2 
ZDY PDEC 
TYA 
AND £15 
ORA £$B0 
JMP COUT 


OUT2 


JSR WIND 

EYT 1 

BYTI 2,57,3,23 
JP RSCUR 


JSR HOM3 
JP PRINT 


JSR AOMS 
JE INIT 


JSR KINC 

BYT 2 

BYT 11,38,8,16 
JSR PRINT 

BYT 3,22 

BYT 253,14, IWV 
BYT 252 

BYT 255,14,41 
ASC ‘ ok ” 
BRK 

JP PRINT 


LDX #13 
LDA #48 


Pom's n° 33 


CHOISE: 


DK 


*0 


A 


GA 


r4 


r$ 


*6 


BOOT: 


JSR FIXCLIC 


LDA £0 
LOY 1534 : 
LOX 1$3B 
JSR MUSIC BOOT2: 
JSR RSCUR 
JSR INPOT2 
ECC >4 

CHP £ESC 
BNE 22 

JP QUIT 
CMP £RTN 
BNE <0 

JSR HOM3 
JUMP CLIC.OK m0) 
LO& CV1 

CMP £8 

BIT <0 

CMP £15 

ÊGE <0 

CMP £14 

BNE <1 i 
LBA CHi 
CMP £41 
BIT <1 
CHP 145 
BSE <1 
BLT <3 


CATL: 


CATD: 


JSR WIND 
BYT 128 
BYT 15,30,8,16 
LDX £126 
LDA £42 
JSR FIXCLIC 
0 
JSR PRINT 
BYT 8,24 
ASC ‘drive select‘ 
BYT 255,11,22 i 
ASC " DRIVE NUMBER 1 “" CATSECT: 
ASC “ DRIVE NUMBER 2 " 
BRK 


LOA DRIVE 
ASL 

AOC £9 

LDX £15 
JSR REVERT 
JSR SPRT 


ACESS: 


JSR INPUTÈ 
HCC>4 
CMP £RTN 
BNE >2 

JSR AOM3 
UMP CLIC.0K 
CMP £ESC 
BNE >3 

JmP QUIT 
LDA DRIVE 
£OR £3 

STA DRIVE 
BFL DK 


ERRDOS : 


LDA STYLE 
CHP ‘'* 
BEQ <2 


LDX Çvi 

CPX £11 p 
BEQ >6 *0 
CPX £13 

BNE <0O 


Lox cal 

CPX £22 

BLT <0 ; 
CPX £38 1 
BGE <0 

Qt ‘3 

BLT <1 

AND £$3F : 
STA STYLE #2 
BNE <3 


JSR ALARM 
BYT 8,14 
ASC * boot disk" 


255,12,24 


"VERIFY B@8T" 


LENGAT, X 
START, X 


<a 


ZLGNFLG 
CATN 


A £255 


AIBFLG 
CATN 


£255 
DELFLG 


RDCAT 
STE, HRIOKR 


PRTCAT 
CATTCH 
<a 
NRTOK 
QUIT 


BUF'FER+2 
TRACK 
BUFFER+2 
SECTEUR 


£0 


$B7BS 
ERRDOS 


ALARM 
9, 14 


* disk error’ 


255,11,19 

"TRACK :°" 
"SECTOR: °" 
"Ca gta 


CD 


>1 

PRINT 

13/27 
"write" 


£10 

Ev 
TRACK 
<a 
SECTEUR 
<0 





OCA8 : F0 
0CB0:E8 
OCB8:AA 
0ccO:10 
occ8:c9 
0CD0:62 
0CD8:c9 
OCEO:BD 
0CE8:08 
OCFO:AA 
OCF8:18 
0D00:0C 
0D08:0D 
0D10:94 
0D18:FD 
0D20:20 
0D28:98 
0D30:48 
0D38:76 
0D40:D4 
0D48;8A 
0D50 ;:4C 
0258:00 
OD60:A5 
0D68:C8 
0D70:44 
0D78:38 
0D80:B0 
0D88:29 
0D90:45 
0D98:2A 
ODAO:20 
ODA8:0A 
ODB0:0C 
ODB8:0E 
0pCO:91 
ODC8:0C 
ODD0 :28 
0DD8:90 
ODE0:0D 
ODE8:4C 
ODFO:E4 
ODF8:E5 
0E00:2D 
0E08:80 
0E10:2A 
0E18:18 
0E20:65 
0E28:A0 
0E30:D5 
0E38:DE 
O0E40:CE 
0E48:A0 
0E50:0F 
0E58:12 
0E60:20 
0E68:D0 
0E70:03 
0E78:5E 
0E80:04 
0E88:16 
0E90:33 
0E98:D4 
0EA0:6F 
OEA8:FF 
0EB0:D9 
0EB8:C2 
O0ECO:A2 
0EC8:A2 
0ED0:93 
0ED8:0 A 
0EEO:FF 
0EE8:20 
0EF0:C6 
0EF8:85 
0F00:00 
0r08:20 
0F10:73 
OF18:FF 
O0F20:A0 


02 
03 
29 
oc 
A9 
15 
11 
c9 
ca 
ca 
A5 
BO 
0F 
20 
64 
6éc 
C4 
C2 
A0 
DS 
00 
20 
oc 


A5 


06 


20 


D6 
D2 








20 


D4 














































































33 











“0 


22 


22, 


ROCAT: 





*0 





ALRH 
INIT 


ALARM 

9, 14 

‘ write catalog" 
255,12, 24 

ARE YOU SURE" 


ALRM 


PRINT 
3,21 
"NRITING" 
251 


£$11 
TRACK 
BUFE&R+1I 
£16 
SECTEUR 
DEA 
BUFFER+2 
£255 
FILENUH 
QD 


£22 
SECTEUR 
BUFFER+2 
FILENUM 
FILENUN 
ADRFIL 
>4 


£0 
(PTR],Y 
BUFFER,X 


>3 


£$23 
<?2 
<1 


ACESS 
< 


£0 
BUFFER, X 


<s 
ACÉSS 
QUIT 


PRINT 

9,22 
READING " 
251 


LADRSTK 
ADRTBL 
#ADRSTK 
ADRTBL+1 
£2 


ADRTBL-2,X 


£35 
ADRTBL,X 
ADRTBL-1,X 
£0 
ADRTBL+1,X 


£254 

<a 

£0 

AORTBL, X 
ADRTBL+1,X 


£$1l 

TRACK 
ST&,SECTEUR 
£1 

CD 

#BUFFER 
DATA#1 
ACÈSS 


GOODOS : 


OTA4 


NXTTRACH 


r0 


SE 


NODEL 


22 


43 


RDFSL: 


“0 


LDA BUFF£R+1 

CæÆ £$11 

BEQ G90B0S 

JSR ALARM 

BYT 9,14 

ASC ‘" dos errcr' 

BYT 255,12,21 

ASC "NOT A DOS 3.3 
DISK" 

ERK 

JSR ALRM 

JMP INIT 


BYT ST2,FREE 
EYT STZ,FRES+I 
BYT STZ, FILSNBE 
BYT ST&.DELETED 


LDY £$8C 

LDA BUFESR+$38-1,Y 
AEQ NXTTRACK 

ASL 

BCC TST 

PAP 

INC FREE *2 
BNE OTH 

JNC FREE+I 

PLP 

BN&S TST+2 

DÊY 

BNE DESCR 


LDA £255 
STA FILENUM 


JSR CATSECT 

Lux #11 

LDA BUFFER,X 

&EC >3 ; 
BPL NODEL 23. 
INC DELETED 


INC F'ILENUM 4 
INC F'ILENBE 
ZDA FILENUM 
JSR ADRFIL 
LDY £0 

LDA BUFFER, X 
STA (PTR},Y 
ENX 

B5Q <0 

INY 

CPY £35 

BCC <2 

BCS <1 


ADRE IL: 


LDA FILENUM 

BYT INA 

ASL AD) 
TAY 


GLC ASCENS: 
LDA FILENSE 

S8C DELETED 

BYT INA 

STA FIL&OK 


LDA £0 d 
STA ADRTBL, Y 

STA ADRTBL+1,Y 70 
STA FILENUM 

BIT LGNFLG 

BMI ROTSL 

RTS 


STA TEMPO 

STA TEMPO+1 

ZLDA TEMPO : 
JSR AORFIL 

BCS <0 


LDY £3 

LDA (PTR),Y 
STA BUFFER, Y 
DEY 

SPL <0 


CMP £255 


260 >4 
STA TRACK 
LDA BUFFER+1 


ADRFILE: 


SECTEUR 
BUFFER+2 
FILETYPE 
TEMP1 

Sri 

>3 

2 


>3 


#TSE 
DAT A+1 
ACSSS 
TSL+12 
TRACK 
TSL+13 
SECTELTR 
ACESS 


£3 
TE8P2 
FE) 

>2 

rÆ 

>2 

£1 
TEMPO+1 


TSL, X 
LENGHT+L Y 
TSL-1, X 
LENGHT, Ÿ 


23 

TSL, X 
START+1,Y 
TSL-1,Xx 
START, Y 


TEMPO+1 
/BÜUÉFER 
DATA#I 
TEMPO 
RDTSL+4 


ADRTBL, Y 
ADRTBL+1,Y 
>0+1 
ADRTEL, Y 
PIR 
ADRTBL+1,Y 
FTR+I 


$38 


$co55 

‘© 
LON22+1 
INA 
LGN22+28 


£26 

"V 

$C055 
LGNZ241,X 
INA 

$Cco54 
LGN22+1, X 


<0 
LGN22+1 


£Ssz 
FILENUM 
FILSNBE 


COMPUTE 


0F'28:D2 8A 
0F30:A0 BA 
0F38:1A 20 
0F 40:69 74 
0EF‘49:A5 25 
OF 50:4C DA 
0F58:D2 C5 
0F60:25 A4 
0F68:20 46 
0F70:09 20 
0F78:72 69 
0F80:61 6C 
0F88:D2 C5 
0F90:D5 D2 
0F98:91 OC 
OFA0:C9 CE 
OFA8:8D 01 
OFB0:8D 02 
0FB9:0C A2 
OFCO:E6 85 
OFC8:17 A0 
OFDO:E8 FO 
0FD8:B0 E6 
OFEO:A9 00 
O0FE8:20 FF 
OFFO:0C 09 
OFF8:CE C7 
1000:81 à9 
1008:BD FE 
1010:81 BD 
1018:81 E8 
1020:00 9D 
1028:11 895 
1030:0C A9 
1038:AD 01 
1040:A6 OD 
1048:20 65 
1050:15 CE 
1058:CF D3 
1060:C9 23 
1068:79 09 


1070:64 81. 


1078:0D OA 
1080:02 E6 
1088:EB A9 
1090:A2 0B 
1098:02 E6 
10A0:85 20 
10A8:80 91 
1080:23 90 
10B8:0A A8 
10C0:85 7F 
10C8:01 81 
10D0:60 85 
10D8:4E 11 
10E0:99 00 
10E8:F0 5F 
10F0:05 AD 
10rF8:30 C9 
1100:42 A9 
1108:A0 OC 
1110:85 05 
1118:30 C9 
1120:02 A2 
1128:00 94 
1130:99 00 
1138:00 94 
1140:99 00 
1148:09 E6 
1150:89 00 
1158:B9 00 
1160:85 IA 
i168:C0 .A9 
1170:6C 07 
1178:C0 9D 
1190:9D 51 
1188:07 A9 
1190:20 A3 
1198;:20 88 
11A0:4C 2A 


F'E C3 CD C4 A0 A0 


20 FF OE 4C B9 OF' 


BD 00 80 FO IE 10 


80 88 10 F8 C9 FF 
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COMPUTE : 


A1 


PRTCAT: 


CATDSK 


*a 


ex 


*0 


“0 


STX Al41 
STY A241 
JSR FLOAT 
JSR ARG 
LDA £0 

JSR FLOAT 
JSR SIGNE 
JSR MULTI 
JSR ARG 
LDA £0 

JSR FLOAT 
JSR SIGNE 
JSR DIVISE 
JSR INT 
JSR ARG 
JSR SIGNE 
JSR INT@GER 
LOX FAC 
RTS 


JSR DRAVASC 

STA CATDSK 

JSR ENTER 

BYT 3,2 

ASC '*' 

BYT 253,18,'ç' 

ASC ' catalog disk ‘ 
ASC " 

BYT 253,18, °c" 

BRK 


BIT OSLFIG 
BMI >1 

L0A FILEOK 
STA FILENBE 


LDA DELETED 
PHA 

LDA 4$60 
STA PRG 
LDX £5 

JSR PRGO 
LOA £$20 
STA PRG 
PLA 

STA OGLETS0 


JSR PRINT 

BYT 20,4 

ASC *FILES:" 
BYT 253,6,SPC 
ASC "DELETED: " 
BYT 253,5,SPC 
ASC "FREE :" 
8YT 253,6,SPC 
ASC "NUMBER:" 


JSR ALARM 

8YT 9,14 

ASC " catalog" 

BYT 255,12,22 

ASC “NO FILE ON DISK" 


PRTCAT': 


0 
Eu 


e2 


Ci} 


*0 


PRTFILE; 


r0 


"8 


“8 


INIT 


MOVING 

>0 

PRINT 

3,25 

‘< moving > 


TEHP 

£4 
-SIRGI, X' 
Œ0T 


<8 
>1I 


OUTSPC 


°1 


a? 
GE) 


EX 


6 
7? 


Gr4 


8 


-8 


ADRPRT: 


<8 


EZ 
PIR).Y 


FILETYPE 
OUT 


£521 
(ÊTA),Y 

DEcC255 

OUISPC 


£3 
fETR),Y 

£SPC 

7 

£$80 

>7 


HIDF IG 
>6 
ICONE 
>6 
£$60 
£$80 
>? 


132 
<5 


(PTR),Y 
TEMP 
>8 

£SPC 
UT 


START+L Y 
START, Y 
PRAX 


LENGAT#1,Y 
LENGHT, Y 
PRAX 

TEMP 

>2 


11A8:11 
11B0:00 
1188:82 
11C0:93 
11C8:20 
11D0:EB 
1108:84 
11E0:03 
11E8:61 
11F0:69 
11F8:5C 
1200:85 
1208:81 
1210:20 
1218: 91 
1220:D3 
1228:C5 
1230:A0 
1238:A0 
1240:00 
1248:A9 
1250:81 
1258:0D 
1260:82 
1268:7F 
1270:34 
1278:A6 
1280:61 
1288:CF 
1290:CE 
1298:C2 
12A0:10 
12A8:6D 
12B0:00 
12B8:A6 
12C0:11 
12C8:38 
12D0:8A 
12D8:4E 
12E0:E6 
12E8:A5 
12F0:A9 
12F8:20 
1300:30 
1308:86 
1310:20 
1318:19 
1320:25 
1328:BD 
1330:F7 
1338:A2 
1340:FC 
1348:10 
1350:04 
1358:F6 
1360:0C 
1368:20 
1370:A0 
1378:5F 
1380:60 
1388:1B 
1390:C8 
1398:2E 
13A0:A2 
13A8:A5 
13B0:51 
13B8:60 
13C0:00 
13C8:c1 
13D0:00 
13D8:F6 
13E0:01 
13E8:0C 
13F'0:41 
13F8:20 
1400:c9 
1408:7F 
1410:D0 
1418:12 
1420:72 


20 93 EB 20 63 


20 
E9 
E3 
23 
20 
oc 
02 
74 
73 
00 
80 
17 
8D 
oc 
BA 
D4 
cé 
CE 
A6 
0B 
D0 
A5 
20 
D0 
20 
OD 
6c 
A0 
A0 
0D 
20 
6Fr 
A9 


95 
20 
20 


EB 20 80 
63 EB A9 
80 EB 20 


EC 20 63 EB 


oc 
8D 
SE 
61 
6B 
24 
A5 
A2 
81 


El A6 A1 
E4W11 20 
FD 12 SC 
6C 6F 67 
20 20 20 
5C 30 19 
81 48 A9 
05 20 7F 
17 68 85 
04 C6 C9 
06 A0 C4 
C4 BA AO 
CS C5 BA 
CD C2 C5 


7F DO 03 20 


A8 


4A OD A9 
20 80 FE 
85 45 A9 
0D 20 57 
20 80 FE 
OD 20 66 
0E 20 63 
67 FF OC 
c9 CC CS 
C9 D3 CB 
79 09 24 
0C 03 19 
69 6E 67 
20 58 FB 
20 4A 0D 
205B5;B 
10 02 A9 
DO 02 C6 
oc 20 08 
2SPCIEIS 
22 AINI 3 


CA 90 FA 


10 24 


15 A9 
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*1 


*2 


FILETYPE: 
ANT 
LOY 
ASL 
‘0 


*8 ŒP* 


°8 


29 ZDX 


£8 
OUTSPC 


< 
"TIABSR?L" 


EST 
£7 


>1 


<0 
FTLECOS, Y ; 
0 


STYLE "0 


>8 CATUP: 


CATTCH D) 
STYLE FA 


£$40 CATDW: 


Gi) 
£T c2 


cHl CATBG: 


>8 "0 
CHGCUR +1 

RSCUR 

ÉCURSOR : 
CHGCUR +1 CATEN: 
STZ, HRIOK 

£$cO 

HAIT 

RRTCAT 


We] Eau :| 

CAIUP 

23 

"" LIMH: 

>9 

LE 

CATON 

‘v “0 

CATTCH 
LIMB: 

CHI 

DEA 


£52 LIMERR: 


REA 


eve 
ÈS 
Es 

E 

G] 

L1 


À 
& 
à 


CP £10 
BCcs >0 


LOA FILEPOS, X 
BPL <5 


JSR LIMA 
BCS >1 

BIT MOVINGE 
8PL >0 

JSR EXCH2 
OEC FIEENUM 
JUP CATTCH" 


JSR LIMB 
BCS <1 

BIT MOVING 
BPL >0 

JSR EXCHI 
INC FILENOM 
JP CATICA" 


JSR LIbA 
BCS <1 

BIT MOVING 
BPL >ÿ 

JSR EXCA2 
DEC FILENUM 
BPL CATSG 
BI <1 


LDA FILENUM 
BYT INA 

CMP FILENBE 
BCC <Q 


EU £50 
10X £230 
LDY £230 


STA LONGEUR 
STX VOIXI 
STY VOIX2 
JMP SOUND 


EDA £125 


s1 


s2 


SI: 


a} 


TSENS. : 


LDX 220 
LOY £40 
BHE MSIC 


&xT 0,6,12,18.24,29, 
35,41, 47,52,58 


JSR KIND 

BYT 1 

BYT 15,30,5,21 

JSR PRINT 

BYT 5,16 

ASC ‘” catalog sort" 
BYT 253,4, INV. 252 
BYT 255,8.23 

ASC ‘1° 

ASC ”"- ALPHABETICAL"" 
INY "2" 

ASC *- NUMERICAL"" 
INV "3" 

ASC "- FILE TYPE°* 
INV “4” 

ASC "- FILE LOCK" 
TNVO Sim 

ASC #"- PERSONAL" 
INV "6" 

ASC “- PURGE DELETE" 


BÎT TBENS 

BPL 257 

JSR PRINT 

BYF 20,26 

ASC " negatirf * 
BRK 

BNE >0 


JSR PRINT 

BYT 20,26 

ASC * positif ‘ 
BRK 


1428:18 
1430:3A 
1438:40 
1440:60 
1448:30 
1450:7C 
1458:08B 
1460:A9 
1468:C9 
1470:C9 
1478:C9 
1480:A6 
1488:8D 
1490:4C 
1498:88 
14A0:95 
14A8:C2 
1480:D7 
148B8:71 

14C0:B0 
14C8:BD 
14D0:15 
14D8:20 
14E0:20 

14E8:03 

14F0:14 

14F'8:10 
1500:F0 

1508:24 

1510:85 
1518:09 
1520:90 
1528:85 
1530:0B 
1538:E8r' 
1540:29 
15438:0ë" 
1550:10 
1558:6F 
1560:04 
1568:A0 
1570:D4 
1578:A0 
1580:C1 

1588:CC 
1590:34 
1598:CC 
15A0:D0 
15A8:DE 
15B0:C5 
15B8:00 
15C0:24 
15C8:1A 
15D0:66 
15D8:14 
15E0:69 
15E8:12 
15F0:F0 
15F8:E0 
1600:38 
1608:34 

1610:05 
1618:10 
1620:0D 
1628:97 
1630:3C 
1638:8D 
1640:C8 
1648:5C 
1650:16 
1658:A0 
1660:F0 
1668:D0 
1670:C8 
1678:06 
1680:B6 
16B8:8D 
1690:BD 
1698:15 
16A0:86 


98 F'O F9 C3 


46 c9 CS F'0 54 C9 


20 00 20 2A 0B 20 


AO FO 14 C9 B7 BO 


AE 0B 17 8E 3C 16 


E7 A9 20 CO OE 80 
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TS2 


NR 


23 


*4 


GET 


6! 
a?! 


PRGO 


STA: 


STL: 


SORTH: 


SORTL: 


STAa TS 


ASC "9" 


STA OPTION : 
JSR CLIC.OK ss2 
JSR HOW3 SL2 
LOA £255 

STA DELFIG 

JSR RDCAT 


LOX CPTION 
ZPA STL, X 
STA PTR 
£LDA STH, X 
STA PTR+1 
LDY £0 

LDA (PTR),Y “1 
BEQ >6 

a 

BEQ >6 

CMP {SPC 

BNE>4 

LDA £INV 

BNE >5 

SE 

Sac #$60 

STA SE+2,Y : 
INY "2 
BPL <J 

£LOA £INV 

CPY £id 

BGE PRG0 è 
STA SE+2,Y 3; 


BNE <? Ts 


LDA 55,X #0. 
STA 5521 
IDA SL,X 
STA SL2+1 END: 


LDA SORTL, X 
STA PTR 

LDA SORTH, X 
STA PTR+] 
JMP (PTR) 


EXCA] : 


HBY 5542 -0 


EXCH2: 


HBY PC “a 


EYT ALPH 
BYT NUM 
BYT TYP 
BYT LCK 
BYT PC 
BYT PRG 


BYT 33,34,3,3,0,0 LCK: 
BYT 2,32,1,1,0,255 


BYT STE, TEMPO PRG: 


ZDX TEMPO 

STX FILENUM 

ISR AORFILE 

ECS SN TYP: 
INX 
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SIX TEMPO NUM: 
STA STORE +1 ALPHA: 
LDA EPTR 

STA STORE 

JSR ADRFILE 

BCS END 


LDY £2 

CPY £33 

BEQ PA 

INY 

LDA (STORE), Y 

BIT ALPHA 

APL >3 

SIT DEL F 
£PL >1 *0 
Cæ £255 

JP ST+2 


BIT LOCK PRG1 
8MI >2 0 
AND £12? 

PHA £ 
LDA (PTR),Y SENT: 
AND £127 

STA TSMP 

PLA SE 
CMP TEMP SE2 
JMP ST 


BIT LOCK 
BPL >J 

CH i70 ; 
JMP ST 


CMP (PTR),Y 

BEQ SL2 

BLT PA r0 
EL 

JSR EXCH1 

BEQ PA : 


INC DO5 

LOA DOS 

CMP FILENOM F2 
BNS TRI 

EYS ST£,FILENOM 

RTS 


LDA FILENUN 
ASZ 

TAX 

LDY £2 : 
LDA AORTEL,X : 

STA TEMPO#1 RATS: 
LDA ADRIEL+2,X 

STA ADRIBL,X 

LDA TEMPO+I : 
STA ADRTBL+2,X 

INX 

DEY 

BNE <0 

RTS 


LDY £2 

ZOA ADRTEL,X DCT 
STA TEMPO+1 

LDA ADRIBL-2, X 

STA ADRTBL,X : 
LDA TEMPO? 1 

STA ADRTSL-2,X 

TINX 

DEY : 
BN& <0 

RIS 


DEC LOCK 
BNE TYP î 


BYT ST8, 00S 
JSR TRI 

BIT DEL 

BPL >0 

LDà FILEON 
STA FILENBE 
ASL 

TAY 

10A £0 

STA D£ELÊÈTED 
STA AORTBL, Y 
STA ADRFBL+i,Y 


BYT S12,D£L 
BYT 5T2, LOCK 
BYT STZ.ALPHA 


SR SENT 
JSR CATTCH 
BCS <0 


JSR ENTER 

BYT 3,2 

ASC ‘'* puzge deleted ‘ 
SYT 253,29,INV,252 
BRK 

LDA £255 

STA SÉICUR 

JMP PRTCAT" 


JSR SENT 

BPL >1 

JSR PRTCAT' 
EYT ST2,TEMP #1 
JSR CATTCH 


BIT TEMP+i 
BMI >2 

CHP LCR 
BNE <0 

LDA MOVING 
SOR £255 
STA MOVING 
JSR PRINT 
EYT 3,25 
BYT 253.9,INV 
BRK 

JSR MISE 
BCS <0 


ORG $00 
OBJ RKTS 


HEX 01 

HE X 00006001 
ERK 

HEX 01 

HEX EFD8 


HEX 0000000 
HEX 00C8 
H£EX 0100 


ORG RWIS+$1D 
O8T * 
DFS $1800-*, 0 


LST 


DEC OL 
BIT TSENS 
BPL TYP 
JSR TSENS. 


DEC ALPHA 


: PASCAL DG80IN 
+ VIGNY THYEZ 
+ 74300 CLUSES 


ASSEMBLEUR: LISA 2.5 
; CREATION : JAN 1997 
: MODIFS : MAI 1987 


: ADRESSE DEBUT: $800 soit 2048 
+ AORESSE FIN : $17FF soit 6143 
: LONGSUË : $EFF soit 4095 
+ TAILLE DISK : 18 SECTEURS 


END 


16A8:17 17 62 62 60 53 AA 57 
16B0:21 22 03 03 00 00 02 20 
16B8:01 01 00 FF 64 56 A6 56 
16C0:86 85 20 4D 11 80 4B E8 
16C8:86 56 85 2D A5 19 85 2C 
16D0:20 4D 11 80 3D AO 02 C0 
16D8:21 FO E3 C8 B1 2C 24 7D 
16E0:10 25 24 79 10 05 C9 FF 
16E8:4C 0B 17 24 78 30 OF 29 
16F0:7F 48 B1 19 29 7F 85 2E 
16F8:68 C5 2E 4C 09 17 24 78 
1700:10 05 C9 46 4C 09 17 D1 
1708:19 F0 CC 90 BI 20 1D 17 
1710:F0 AC E6 84 A5 84 C5 85 
1718:D0 A2 64 85 60 A5 95 OA 
1720:AA A0 02 BD 00 81 85 57 
1728:BD 02 81 9D 00 81 AS 57 
1730:9D 02 81 E8 88 DO EC 60 
1738:A5 85 OA AA A0 02 BD 00 
1740:B1 85 57 BD FE 80 9D 00 
1748:81 AS 57 9D FE 80 E8 88 
1750:D0 EC 60 C6 78 DO 09 C6 
1758:79 24 17 10 03 20 29 16 
1760:C6 7D 64 84 20 BC 16 24 
1768:79 10 10 AS 7F 85 80 CA 
1770:A8 A9 00 85 81 99 00 81 
1778:99 O1 81 64 79 64 78 64 
1780:7D 20 89 17 20 1iC 14 80 
1788:FB 20 9A OD 03 02 5E 20 
1790:70 75 72 67 65 20 64 65 
1798:6C 65 74 65 64 20 FD 1D 
17A0:20 FC 00 A9 FF 85 60 4C 
17A8:FA 11 20 89 17 10 03 20 
17B0:9D 12 64 2F 20 1C 14 24 
17B8:2F 30 04 C9 8D DO FO A5 
17C0:86 49 FF 85 86 20 31 OC 
17C8:03 19 FD 09 20 00 20 31 
17D0:15 80 DC 01 60 01 O0 00 
17D8:00 11 00 00 80 00 00 01 
17E0:00 00 60 91 00 O1 EF D8 
17E8:00 00 00 AG 00 C8 01 00 
17F0:00 00 00 00 00 00 00 00 
17F8:00 00 00 00 00 00 00 00 





Programme 
BOOT 


Peur lancerCATS & MOUSE, 
faites RUN BOOT et non 
BRUN CATS & MOUSE... 


10 HOME : IF PEEK (49175) 
> 127 THEN PRINT "80 
COLONNES EXIG£E": NEN 

20 DS = CHRS (13) + CHRS (4): 
PRINT D$"PR£E3" 

40 PQKE 1010,0: FOKE 1011,3: 
PORKE 1012,166 

50 PQKE 768,32: POKE 769,234: 
PORE 770,3 

650 PORE 771,32; POKE 772,58: 
POKE 773,252 

70 PORE 774,76: POKE 775,102: 
POKE 776,213 

190 PRINT D$"BRUNCATS & MOUSE" 
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Apple 














HyperCard 


La distribution d'HyperCard reste 
floue, en tous cas un peu retardée, 
de novembre, la promesse passe à 
décembre pour livraison avec tous 
les nouveaux Mac. Les 
développeurs restent les 
privilégiés de ce programme gour- 
mant en mémoire : moins de1000F 
pour 360K0 de soft, des centaines 
de Ko de‘stackware’etla documen- 
tation. Cette documentation esten 
revanche à la disposition de tous 
chez bien des revendeurs. 


3614 


Le Club Applesepositionne un peu 
en retrait par rapport à CalvaCom 
mais a créé son serveur en 3614, 
code APPLE. 3614 à 22,20 F/heure, 
voilà de quoi attirer les Mini- 
telistes applemaniaques lassés du 
coûteux 3615. Aujourd'hui, seule la 
messagerie est active, l'ensemble 
devant fonctionner à l'heure où 
vous lisez ces lignes. 


Précipitation 


Avec Radius Accelerator, la vitesse 
du MacintoshPlus ou SE est 
multipliée par 4, gain accentué 
avec l'option coprocesseur. 
L'accélération a un prix :9900Fet 
4 000 F le processeur 68881... 
Coûteux également (20000 F)mais 
impressionnant : Radius FPD qui 
affiche 1024 x 864 points sur écran 
15 pouces. Se connecte dansle con- 
necteurinterne du SE. Letoutchez 
P-Ingénierie 224, bld Raspail à 
Paris. 


Vu... 


à Apple Expo (ou plutôt Mac- 
Expo) un Michel Polac effrayé par 
la micro : la fabuleuse 


démonstration de VidéoWorks y 





serait-elle pour quelque chose ? 
Plusieurs mégas pour en mettre 
‘plein la vue et les oreilles’, mission 
accomplie. 


Recherche attributs 


Pour composer et mettre en page 
Quark Xpress — en français — fait 
un pas de plus : pour Mac Plus, SE 
ou ÎI et toutes imprimantes ou 
photocomposeuses PostScript ou 
Laser Writer. 

Prévu pour l'importation d'images 
numérisées au format TIFF, même 
en couleurs (on parle d'une pro- 
chaine version fonctionnant avec 
photocomposeuse couleur). Voilà 
ce qui manque à nos traitements de 
textes : pouvoir rechercher toutes 
les mentions en gras, les mots en 
police Palatino, etc. Problème 
résolu : pour 7500 F ce soft le per- 
metainsiquelagestion des césures 
à la française avec exceptions... 
Semble d'une relative lenteur 
(considérant le matériel) à l'usage, 
les extensions mémoires ne sont 
pas un luxe. Toujours chez P- 
Ingénierie. 


Wysiwyg 


Le nouveau mot à la mode. L'écran 
Viking connu sur les PC dote 
aujourd'hui le SE de 1280 x 960 
points. Ilest dit rapide etreposant. 
ACEE 4, bis rue de châteaudun à 
Paris. 


PageMaker 


Aldus Corporation annonce sa ver- 
sion 3.0 sur Mac et PC. Il devient 
possible de faire des textes impor- 
tants (128 pages au lieu de 16), 
d“habiller” desimages, de gérer la 
couleur, mais toujours pas de re- 
cherche... ISE-Cégos, Tél (1) 46 84 
49 84, 





Ouverture 


LSD Développement à Lille pro- 
pose un accessoire de bureau pour 
les utilisateurs de LSD-Compta. Ii 
permet la récupération de fichiers 
TEXT : pratigue pour préparer des 
écritures en traitement de textes, 
récupérer des données de tableurs 
etc. Chez les concessionnaires 
Apple. Tiens ? LSD Compta version 
2.12 permet de revenir en arrière 
dans la comptabilité, est-ce bien 
raisonnable ? Té] : 20 85 04 37 


Mac contre Mac 


Une occasion de faire évoluer le 
matériel. Voici la méthode : rendre 
visite à son concessionnaire Apple 
avec1i 750 FetunLisaouMacXL 
ou Mac 128 ou Mac 512. On en 
ressort avec un Macintosh Plus 
couleur platine. L'ancien matériel 
est donné à une association d'aide à 
l'enfance inadaptée. 


Laser encore Plus 


Les dernières LaserWriter 
américaines comportent une nou- 
velle version de PostScript encore 
plus rapide. 


Mathématiques 


Un accessoire de bureau chez 
AlphaSystème à Grenoble pour 
éditer les formules mathématiques 
devant lesquelles nos éditeurs de 
textes setrouventbien dépourvus : 
accolades sur plusieurs lignes, 
racines etc. Tél 76 43 19 97, Cal- 
vaCom AS13. 


Compiler.…. 


le Basic Microsoft 3.0 avec le 
compilateur du même nom. Les 
résultats sont plaisants par la 
rapidité (ce n'est tout de même ni 
Pascal ni l'assembleur), par la 
compatibilité HFS, par les nou- 
velles instructions Else, Endif, 
Elself, Case... Difficultés avec les 
programmesutilisant des routines 
assembleur. Revendeurs Apple. 
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aint = Minitel est 
un programme 
4 de transformation 
1 d'images MacPaint 
EE ou FullPaint en 
images semi-graphiques 
Vidéotex. Il fonctionne sur 
tous les Macintosh 
disposant d'au moins 
512Ko de mémoire vive. 


Directement inspiré du programme 
pour Apple // de Patrice Neveu publié 
dans ce numéro, Paint — Minitel, 
utilise la même méthode de calcul ; 
afin de ne pas doubler les explications 
techniques, nous vous proposons donc 
— pour celles-ci — de vous reporter à 
l'article de la page 11, où sont exposés 
les différents points à retenir pour 
l'écriture de ce genre d'application. En 
fait, la seule différence technique 
notable entre les versions Apple // et 
Macintosh porte sur le nombre de 
lignes formant l'image ‘source’ : 192 
pour l'Apple // contre 240 (comme le 
Münitel) pour le Macintosh. En ce qui 
concerne le résultat, vous avez un 
exemple sur la couverture de ce 
numéro 33 de ce que devient la célèbre 
Lady d'Apple après traitement ; 
compte tenu des contraintes imposées 
par le Minitel, ce n'est pas si mal ! 


La liaison Macintosh/Minitel se fera, 
comme à l'accoutumée, par le câble de 
liaison que vous possédez 
certainement déjà. Sinon, vous pouvez 
le commander directement à la revue. 
Le raccordement se fait sur l'interface 
série ‘communication’. 





[Fichier | Traiteme 


REDON NON ET HEC 


| 
7 
74 
74 


ons 


Utiliser 
Paint = Minitel 


Si la base théorique est identique à 
celle de la version Apple /f, il n'en va 
bien sûr pas de même pour la 
programmation et l'utilisation. Le 
‘listing’ du programme étant 
suffisamment clair pour être compris 
aisément par nos lecteurs amateurs de 
Basic, nous allons tout de suite passer 
au mode d'emploi. 


Ÿ 


Chargement d'une 
image Mac/FullPaint 


Le chargement d'une image ‘source’ 
est obtenu grâce à l'article Chargement 
image Paint. du menu Fichier, 
lequel provoque l'affichage de la 
fenêtre de sélection standard, qui 
elle-même ne laissera apparaître que 
les documents créés à l'aide de 
MacPaint ou FullPaïnt. La partie utile 
de l'image chargée, décodée et affichée 
correspond à la partie supérieure 
gauche du document Mac/FullPaint 
(240 lignes de 320 points). 





Inversion de 

l'image ‘source’ 

En fonction de la densité — ou plus 
simplement de la nature du contenu - 
de l'image, il peut être utile d'en 
inverser les valeurs ; pour cela, vous 
disposez de l'article {nversion de 
l’image placé dans le menu 
Traitement. Pour retrouver une image 
conforme au document original, il 
suffit d'utiliser à nouveau le même 
article. 


Conversion de l'image 


Il convient d'employer l'article 
Conversion Paint/Minitel du menu 
Traitement. Une fenêtre s'affichera 
alors, vous proposant un traitement en 
noir et blanc ou avec des nuances de 
gris. Avec le traitement en noir et 
blanc, seules ces deux valeurs 
extrêmes seront utilisées sur l'écran du 
Minitel ; cette méthode se révèle être 
souvent efficace avec les images 
faiblement contrastées. Lors de 
l'emploi des nuances, une seconde 
fenêtre vous propose le choix du 
contraste, de 1? à 500. Par défaut, le 
contraste est de 10 pour les images 
‘normales’, et 100 pour les images 
inversées. 
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Pendant le traitement proprement dit, 
un rectangle visualisant le caractère 
concerné ce déplace rapidement sur 
l'écran du Macintosh, alors que le 
résultat s'affiche simultanément sur 
l'écran de votre Minitel. Bien que la 
présence de ce dernier soit pratique — 
puisqu'elle autorise un contrôle 
immédiat du résultat — elle n'est 
absolument pas indispensable. 

Les opérations peuvent être 
interrompues en maintenant enfoncées 
les touches Commande et ‘.”. 


Sauvegarde de 

l'image Vidéotex 

Après traitement, l'image Vidéotex est 
en mémoire et, si nous voulons la 
conserver pour une utilisation future, 
il faut l'enregistrer avec l'article 
Sauvegarde image Minitel... du menu 
Fichier. Une fenêtre standard permet de 
nommer le fichier qui reçoit l'œuvre. 
Pour une exploitation des images 
issues de Paint — Minitel avec un 
autre logiciel (serveur par exemple), 
signalons que le type donné aux 
fichiers générés est ImMi, pour Image 
Minitel (l'imagination, quand 
même...) 


Consultation d'une 

image Vidéotex 

L est possible de charger rapidement et 
d'envoyer vers le Minitel des images 
Vidéotex en utilisant l'article 
Chargement & envoi d'une image 
Minitel... du menu Fichier. Dans ce 
cas — et logiquement -— seuls les 
fichiers de type !mMi peuvent être 
sélectionnés. 


Exemple d'utilisation 
des images créées 


Ces images seront évidemment 
utilisables par votre serveur actuel ou 
futur mais, en attendant, il est déjà 
possible de l'envoyer sur le Minitel 
d'un correspondant avec le petit 
programme — rustique — suivant : 


DEFINT AY 
Escape$-CHR$(27) 
PRO1$-Escape$+CHR$(57) 
SOH$=CHR$(1) 
EOT$-CHR$(4) 
ENOROM$=CHR$(&H7B) 
Deconnexion$=CHR$(103) 
Connexion$=CHR$(104) 





RET1$-CHR$(111) 

MENU 1,0,1,‘Fichier" 

MENU 1,1,1, "Ouvrir..." 
MENU 1,2,1,"" 

MENU 1,3,1,'Quitter 
WINDOW CLOSE i 

ON MENU GOSUB Evenÿ,ienu 
MENU ON 

ON BREAK GOSUB rien 
BREAK ON 


Boucle: 
GOTO Boucle 


EventMenu: 

MENU OFF 

Nmenu=MENU(0) 
Narticle=MENU(1) 

ON Nmeni GOSUB mFichier rien 
MENU 

MENU ON 

RETURN 


mFichier: 

CN Narticle GOSUB aChargeMinitel, J 
rien Quitter 

RETURN 

aChargeMinitel: 

ON ERROR GOTO ErreurChargeMinitel 

FichierMinitel$=FILES$(1,"ImMi") 

(F FichierMinitel$=" THEN 

RETURN 

ENDIF 

OPEN FichierMinitel$ FOR INPUT [ 
AS 1 LEN=512 

Chainelmage$=INPUT$(LOF(1),1) 

CLOSE 1 

OPEN ‘COM1:1200' FOR OUTPUT | 
AS 1 LEN=512 

OPEN “COM1:1200" FOR INPUT AS 2 

PRINT#1,PRO1$ RETI$ PROS J 
Connexioné; 

tempo#=-TIMER 

WHILE TIMER<tempo#+6 

WEND 

Envois=0 

Boucle: 

tempo#-TIMER 

PRINT#1,PRO1$ ENQROM$; 

WHILE TIMER<tempo#+1 

IF LOC(2)>23 THEN GOSUB Test 

WEND 

Envois-Envois+1 

IF Envois<20 THEN Boucle? 

PRINT#1,PRO1$ Deconnexion$; 

CLOSE 1 

CLOSE 2 

RETURN 

ErreurChargeMinitel: 

RESUME aChargeMinitel 

Quitter: 

SYSTEM 

rien: 

RETURN 

Test: 

GOSUB LitCar 


[2 
ER 





Traitement 


inversion de l'image 
Conversion Paint/Minitel 


IF C$<>SOH$ THEN RETURN 
GOSUB LilCar 

GOSUB LitCar 

GOSUB LitCar 

GOSUB LitCar 

IF CSEOTS THEN RETURN 
PRINT#i,Chainelmagef; 
Envois-19 

RETURN 

LitCar: 

C$=INPUT$(1,2) 

RETURN 


Lorsque qu'une image est sélectionnée, 
votre correspondant dispose de 20 
secondes — à partir du moment où il 
entend la porteuse (signal aigu) -- pour 
appuyer sur la touche Connexion de 
son Minitel. Il commencera alors à 
recevoir l'image dans la seconde qui 
suit la connexion. Attention : le 
Minitel émetteur doit être 
‘retournable’ (Type 1B). 


Sur la disquette d'accompagnement, 
l'application correspondante s'appelle 
Envoi Vidéotex. 


Programme Basic 


L'application Paint — Minitel, que 
l'on peut trouver sur la disquette 
d'accompagnement du numéro 33, est 
écrite avec la version 3.0 du Basic 
Microsoft et compilée avec le 
compilateur du même nom. Si vous 
n'avez pas ladite disquette 
d'accompagnement et voulez utiliser le 
programme avec l'interpréteur, Paint 
— Minitel fonctionnera mais, bien 
sûr, beaucoup plus lentement. D'autre 
part, nous avons utilisé la possibilité 
de/F... THEN... ELSE IF... ENDIF 
de la version 3.0 qui n'est pas tolérée 
par les versions antérieures ; si vous 
êtes munis d'une de ces versions, il 
vous faudra donc faire quelques 
menues adaptations. Ainsi, par 
exemple : 

MiseAJour: 

IF Drapeauinvert THEN 

BUT (0,0),TableauMAJ,PRESET 
ELSE 

PUT (0,0),TableauMAJ,PSET 
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| END IF 
| RETURN 
deviendra : 
MiseAJour: 
IF Drapeauïnvert THEN PUT 
(0,0),TableauMAJ,PRESET 
ELSE PUT(0,0),TableauMAS, 


PSET 
RETURN : 


Programme 

‘Paint -> Minitel’ 

Basic Microsoft 3.0 

* le symbole l'indique la continuité de la ligne. 


Fichier 


Quitter 


2 D D 2 D D D D A AD re 2 


‘* Conversion d'images Mac/Full Paint 

‘* en Images Semi-graphiques Vidéotex 

RER RÉ ÉÉ ÉÉÉÉÉ ÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉ ÉÉÉÉÉAÉTÉY 
‘* Initialisations 

DEFINTA-Y 

DATA &H4E56,&H0000,&H3F2E,&H0008 
DATA &HA936,&HA937,&H4E5E,&H4E75 


DATA &H4E56,&H0000,&H42A7,&H3F2E 
DATA &h0008,&hA9B9,&h2057,&h2E90 
DATA &HA851,&H4E5E,&H4E75 
DATA 0,4,1,5,2,6,3,7 
‘Haut gauche 
DATA 0,3,0,2 
‘haut droit 
DATA 4,7,0,2 
‘milieu gauche 
DATA 0,3,3,6 
‘milieu droit 
DATA 4,7,3,6 
‘bas gauche 
DATA 0,3,7,9 
‘bas droit 
DATA 4,7,7,9 
DIM TableauEntiers(38),TableauMA.J(4801) 
DIM TableauPoints(39,23,5), TableauDensite(7) 
DIM Gris(3),Rectangle(3) (5), TableauHexa(14) 
DIM DepartX(5),ArriveeX(5),DepartŸ(5),ArriveeŸ(5) 
DIM SupMenus(?),Curseurs(1 0) 
NombreLignes-240 
NombreMots=20 
TableauEntiers(1)=320 
TableauEntiers(2)=1 
TableauMA.J(0)=320 
TableauMA,J(1)=240 
EOR=-10 
top=0 
left=1 
bottom=2 
right=3 
MenuPomme=1 
Montre=4 
Chicago=0 
FormFeed$-CHR$(12) 
SemiGraph$-CHR$(14) 
Texte$-CHRS$(15) 


Chargement image Paint... 
Chargement & envoi image Minitef… 


Sauvegarde image Minitel. 





Escape$-CHR$(27) 


FORi=0TO 7 
READ SupMenus(i) 
NEXT 
FOR i=0 TO 10 
READ Curseurs(i) 


NEXT 
FOR i=0 TO 7 
READ TableauDensite(i) 


NEXT 


FOR:i=0 TO 3 
Gris(i)=&HAA55 
NEXT 
FOR i=0 TO 5 
READ DepartX{i),ArriveeX(i), Depart Y(i) 
ArriveeŸ(i) 
NEXT 
FOR i=0 TO 14 
TableauHexa(i)=21i 
NEXT 
A'=VARPTR(SupMenus(0)) 
A! MenuPomme 
MENU 1,0,1, "Fichier" 
MENU 1,1,1,' Chargement image Paint..." 
MENU 1,2,1,' Chargement & envoi image Minitel..." 
MENU1,3,0 "Sauvegarde image Minitel..." 
MENU1,4,0,"" 
MENU 1,5,1,'Quitter” 
MENU 2,0,1,'"Traitement” 
MENU 2,1,0,"Inversion de l'image” 
MENU 2,2,0, "Conversion Paint/Minitel" 
MENU 3,0,1,'Pom's" 2 
MENU 3,1,1,'©JLB, CP & Éditions MEV | 
— 39.51.24.43" 
WINDOW CLOSE 1 
ON DIALOG GOSUB EventDialogue: DIALOG ON 
ON MENU GOSUB EventMenu:MENU ON 
ONBREAK GOSUB rien:BREAK ON 





RER EEE RÉ ER NRRR RÉ RRRRÉRRRRÉRRRRRRRRRRÉREÉ 


* Boucle principale 


Boucle: 
GOTO Boucle 


EventDialogue: 
DIALOG OFF 
GOSUB CurseurMontre 
GOSUB MiseAJour 
DIALOG ON 
INITCURSOR 
RETURN 
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EventMenu: 
MENU OFF:DIALOG OFF 
| GOSUB CurseurMontre 
Nmenu=MENU(0) 
| Narticle-MENU(1) 
ON Nmenu GOSUB mFichier,mTraitement,rien 
| MENU 
| MENU ON:DIALOG ON 
INITCURSOR 
| RETURN 
|  mFichier: 
ON Narticle GOSUB aChargePaint,f 
| aChargeMinitel, aSauveMinitel, Arret. Quitter 
RETURN 


aChargePaint: 
GOSUB OuverturePaint 
IF NOT Annuler THEN 
GOSUB PaintBitMap 
MENU 2,1,1 
MENU 2,2,1 
MENU 1,3,0 
END IF 
RETURN 


aChargeMinitel: 
GOSUB ChargementMinite]l 
RETURN 


aSauveMinitel: 
GOSUB Sauvegarde 
RETURN 


mTraitement: 
ON Narticle GOSUB alnversion,aConversion 
RETURN 


|  alnversion: 
GOSUB Inversion 
RETURN 


aConversion: 
GOSUB CouleurOuNoir 
GOSUB ComptePoints 
RETURN 





LÉLSÉLSSS SSL ELS ELLES RS ESS LL L SSL SSL SSL SSL LL LS S ES 
‘* Ouverture d'un fichier MacPaint ou FullPaint 


OuverturePaint: 

ON ERROR GOTO ErreurOuverture 
FichierPaint$-FILESS$(L"PNTG") 
GOSUB CurseurMontre 
IF FichierPaint$=" THEN 

Annuler=-1l 
GOSUB MiseAJour 
RETURN 
END IF 
Annuler=0 
OPEN FichierPaint$ FOR INPUT AS 1 LEN=512 
CLS 





Drapeaulnvert=0 
IF NOT DrapeauFenetre THEN 
WINDOVW 1,"",(96,40)-(416,280),4 
DrapeauFenetre=-1 
ENDIF 

RETURN 

ErreurOuverture: 
RESUME OuverturePaint 


2 AA A A A AAC 


‘* Décodage et affichage de l'image Paint 








PaintBitMap: 
TotalPoints!=0 | je | 


VariableBidon$-INPUTS(512,1) (Re pt 
PEN'PAT VARPTR(Gris(0)) SES 
FOR Indicel=1 TO NombreLignes D 


MOVETO 0,Indicei-1 
LINETO 319,Indicel-1 
FOR Indice2=1 TO NombreMots 
TableauEntiers(Indice2+2)=-0 

NEXT 
CompteurOctets=0 

BoucleLigne: 
NombreOctets=ASC(INPUT'$(1,1)) 


IF NombreOctets<185 THEN 
VraiNombreOctets=-NombreOctets+1 
GOTO CodeDifferents 
ELSE 
VraiNombreOctets-256-NombreOctets+1 
ValeurReport=ASC(INPUT$(1,1)) 
END IF 
FOR Indice2=1 TO VraiNombreOctets 
IF (Indice2+CompteurOctets+1) MOD 2 THEN 
TableauEntiers((Indice2+CompteurOctets+1 )\f 
2+2)=TableauEntiers({Indice2+f 
CompteurOctets+1)\2+2) OR ValeurReport 
GOTO FiniIndice2 
END IF 


ValeurReportLong!=ValeurReport*256 


IF ValeurReportLong!>32767 THEN 
ValeurReportLong'-ValeurReportLong!-65536! 
END IF 


ValeurReportCourt=ValeurReportLong! 
TableauEntiers((Indice2+CompteurOctets+1)\2+f 
2)=TableauEntiers((Indice2+CompteurOctets+] 
1)\2+2) OR ValeurReportCourt 
FinIndice2: 
NEXT 


CompteurOctets-CompteurOctets+VraiNombreOctets 
GOTO SuiteLigne 
CodeDifferents: 

FOR Indice2=1 TO VraiNombreOctets 

CompteurOctets=-CompteurOctets+1 

ValeurReport=ASC(INPUT$(1,1)) 

IF (CompteurOctets+1) MOD 2 THEN 
TableauEntiers((CompteurOctets+1)\2+2)=f 
TableauEntiers((CompteurOctets+1)\2+2) OR / 
ValeurReport 
GOTO FinIndice2Bis 

END IF 


ValeurReportLong!=ValeurReport*256 

IF ValeurReportLong!>32767 THEN 
ValeurReportLong'=ValeurReportLong!-65536! 

ENDIF 


ValeurReportCourt-ValeurReportLong! 
TableauEntiers(CompteurOctets+1)\2+2)=/ 
TableauEntiers((CompteurOctets+1)\2+2) OR | 
ValeurReportCourt 


FinIndice2Bis: 
NEXT 
SuiteLigne: 
IF CompteurOctets<72 THEN BoucleLigne 
FOR Indice2=1 TO NombreMots 
TableauMAY({Indicel -1)*20+(Indice2+1))=/ 
TableauEntiers(Indice2+2) 
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FOR Indice3=0 TO 14 
IF (TableauEntiers(Indice2+2) AND / 
TableauHexa(Indice3))=0 THEN 
TotalPoints!=TotalPoints!+1 
END IF 
NEXT 
IF TableauEntiers(Indice2+2)<0 THEN / 
TotalPoints!=TotalPoints!+1 
NEXT 
PUT(0,Indice1-1),TableauEntiers(1),PSET 
NEXT 
CLOSE 1 
MI#=({TotalPoints!/5760)*27)/30 
PENNORMAL 
RETURN 


RALLLLILLLLIL LILI LITTLE LITIITILIIL LL LL) LL LT) 
‘*# Choix du traitement 


CouleurOuNoir: 
WINDOW 2,"",(104,300)-(408,332),2 
BUTTON 1,1,'Noir et blanc',(8,7)-(144,25) 
BUTTON 2,1" Nuances grisées”,(160,7)-(296,25) 
INITCURSOR 
WHILE DIALOG(0)<>1 
WEND 


IF DIALOG(1)=-1 THEN 
DrapeauNoir=-1 
WINDOW CLOSE 2 
RETURN 


ELSE 

DrapeauNoir=0 

BUTTON CLOSE 2 

TEXTFONT Chicago 

MOVETO 8,21 

BUTTON 1,1,"OK",(200,7)-(296,25) 
PRINT "Contraste (1 à 500) :"; 


IF Drapeaulnvert THEN 
BaseContraste$="100" 
ELSE 
BaseContraste$="10" 
END IF 
BoucleContraste: 
EDIT FIELD 1,BaseContraste$,(152,8)-| 
(180,23),1,3 
WHILE DIALOG(0) 
WEND 


Dialogue-DIALOG(0) 

WHILE Dialogue<>6 AND Dialogue<>1 

Dialogue-DIALOG{0) 

WEND 

Contraste#=VAL(EDITS$(1)) 

IF Contraste#<1 OR Contraste#>500 THEN 
BEEP 
GOTO BoucleContraste 

END IF 

GOSUB CurseurMontre 

WINDOW CLOSE 2 


END IF 
RETURN 


ae he fe 3e ee EE DE NN NO ER RER ER ENEN RE 
‘* Rafraîchissement de l'écran 
MiseAJour: 


IF Drapeaulnvert THEN 
PUT (0,0), TableauMAJ,PRESET 


ELSE 
PUT (0,0),TableauMAJ,PSET | RE | 
END IF (qu = 
RETURN LES 


7 


ÉLLÉLLEILLLLELLLLLLLLELLLLLLLLLLLLLLLLE LL. ES 
* Transformation en image Semi-graphique 


ComptePaints: 
OPEN "COM1:1200" FOR OUTPUT AS 1 LEN=512 
PRINT#1FormFeed$ SemiGraphf; 
PENPAT VARPTR(Gris(0)) 
PENMODE EOR 
TEXTFONT Chicago 
CouleurFondBis=0 
CouleurCaractereBis=0 
Chainelmage$=" 
DrapeauArret=0 
GOSUB FenetreArret 
GOSUB CurseurMontre 
MENU 1,3,1 
ON BREAK GOSUB Arret 
FOR Vertical=0 TO 23 
HIDECURSOR 
FOR Horizontal=0 TO 39 
Rectangle(top)}=Vertical*10-1 
Rectangle(left)=Horizontal*8-1 
Rectangle(bottom)=Vertical*10+11 
Rectangle(right)=Horizontal*8+9 
FRAMERECT(VARPTR(Rectangle(top)})) 
S=0 
FOR Bloc=0 TO 5 
Tableau Points(Horizontal, Vertical ,Bloc)=0 
FOR PointX=DepartX(Bloc) TO AniveeX(Bloc) 
FOR PointY=DepartY(Bloc) TO Î 
ArriveeŸ(Btoc) 
TableauPoints(Horizontal Vertical, f 
Bloc)=TableauPoints(Horizontal,[ 
Vertical Bloc)+ABS(POINT{Horizontal*| 
8+PointX, Vertical*10+Point Y}=30) 
NEXT 
NEXT 
IF Bloc-2 OR Bloc=3 THEN 
TableauPoints(Horizontal Vertical, Bloc)=| 
(TableauPoints(Horizontal, Vertical,Bloc)*3)\4 
END IF 
T{Bloc)=TableauPornts(Horizontal, Vertical, f 
Bloc) 
S=S+T(Bloc) 
NEXT 


IF DrapeauNoir THEN 
CouleurFond=7 
CouleurCaractere=0 
GOTO Suite0 

END IF 


Ecart#=((T(0)2+T(1)12+T(2)2+T(3)12+/[ 
T(4) 2+T(5)12)-(S12)/6)/5 
Ecart#-(Ecart#*Contraste#}10 
CouleurCaractere=INT((S/6-Ecart#/2)+.5) 
CouleurFond=INT((S/6+Ecart#/2)+.5) 
IF CouleurCaractere>7 THEN / 
CouleurCaractere=7:GOTO Suitel 
IF CouleurCaractere<0 THEN / 
CouleurCaractere=0 
Suitel : 
IF CouleurFond>7 THEN CouleurFond=7:GOTO 
Suite0 
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IF CouleurFond<0 THEN CouleurFond=0 


SuiteO: 
Caractere-32+(ABS(T(0)>MI#))+2*(ABS(T(1 )>f 
MI#))+4*(ABS(T(2)>MI#))+8*(ABS(T(3)>MI#f 
))+16*(ABS(T(4)>MIH )}+ 6 4*(ABS(T(5)>MI#)) 
CouleurFond=TableauDensite(CouleurFond) 
CouleurCaractere-TableauDensitel 
(CouleurCaractere) 

IF CouleurFond<>CouleurFondBis THEN 
PRINT#1,Escape$ CHR$(64+CouleurFond); 
Chainelmage$=ChaineImage$+Escape$+/ 
CHR$(64+CouleurFond) 
CouleurFondBis-CouleurFond 

END IF 

IF CouleurCaractere<>CouleurCaractereBis f 

THEN 
PRINT#1,Escapes CHR$(80+/ 
CouleurCaractere); 
Chainelmage$=Chainelmage$+Escape$+/ 
CHRS${(80+CouleurCaractere) 
CouleurCaractereBis-CouleurCaractere 

END IF 

PRINT#i, CHR$(Caractere), 

Chainelmage$-Chainelmage$+CHR#Caractere) 


FRAMERECT(VARPTR(Rectangle(top}}) 
IF DrapeauArret THEN 
GOSUB MiseAJour 
Vertical=23 
Horizontal=39 
MENU 1,3,0 
END IF 
NEXT 
NEXT 
PRINT#1,Textef; 
Chainelmage$=FormFeed$+SemiGraph$+] 
Chainelmage$+Texte$ 
WINDOW CLOSE 2 
SHOWCURSOR 
CLOSE 1 
ON BREAK GOSUB rien 
RETURN 


LR HONOR R RE HE EVENE VER EE EE EE EX | 


* Enregistrement de l'image semi.graphique 

Sauvegarde: 

ON ERROR GOTO ErreurSauvegarde 
FichierMinitel$=FILES$(0, "Enregistrer l'image J 
sous :” 

GOSUB CurseurMontre 
GOSUB MiseAJour 
IF Fichier Minitel$=" THEN 
Annuler=-1 
RETURN 
END IF 
Annuler=0 
OPEN FichierMinitel$ FOR OUTPUT AS 1 LEN=/ 
512 
PRINT#1,Chainelmagef; 
CLOSE 1 
NAME FichierMinitel$ AS FichierMinitel$,f 
‘“ImMi" 
RETURN 
ErreurSauvegarde: 
RESUME Sauvegarde 


MRRKRÉREREEEERERERRRÉEEEEEEÉEERERÉEREREEREREX 





‘* Chargement d'une image Semi-graphique | 24] 
‘* et envoi vers le Minitel eo | 
ChargementMinitel: 

ON ERROR GOTO ErreurChargeMinitel LS 
FichierMinitel$=-FILES$(1,"ImMi") © 
GOSUB CurseurMontre 
GOSUB MiseAJour 
IF Fichier Minitel$="" THEN 

Annuler=-1 
RETURN 
END IF 
Annuler-0 
OPEN Fichier Minitel$ FOR INPUT AS 1 LEN=512 
Chainelmage$=INPUT$(LOÏ(1),i) 
CLOSE i 
OPEN"COM1:1200" FOR OUTPUIT AS 1 LEN-512 
PRINT#1,Chainelmagef; 
CLOSE 1 
RETURN 
ErreurChargeMinitel: 
RESUME ChargementMinitel 


TRKKKKARERERERÉERERÉERERKÉRÉEREREEKEKEEREEEKÉERER 
# Inversion (noir/blanc) de l'image Paint 
Inversion: 
Drapeaulnvert=NOT Drapeaulnvert 
Rectangle(top)=0 
Rectangle(left)=0 
Rectangle(bottom)=240 
Rectangle(right)=320 
INVERTRECT(VARPTR(Rectangle(top}}) 
RETURN 


PPFTLITÉLLILLILI LL I LS. SSL LS SSL LS... SS 
‘* Sous-programme divers 


Arret: 
DrapeauArret=-1 
RETURN 


Quitter: 

SYSTEM 

CurseurMontre: 
A=VARPTR(Curseurs(0)) 
A! Montre 

RETURN 


FenetreArret: 
WINDOW 2,"",(104,300)-(408,332),2 
TEXTFONT Chicago 
MOVETO 32,21 
PRINT “Pour annuler : * CHR$(17)" - majuscule | 
WINDOW1 
RETURN 
rien: 
RETURN 


KRKARERRERERÉKÉERRRÉRÉEREKREÉELÉRERRÉRERHRERRIR 





Vous cherchez 


désespéremment un ordinateur, vous vendez une 
souris, vous avez créé un club ? 





| Rendez-vous page 29... 
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Hervé Thiriez 


ivrée avec une 

documentation claire et 

bien ficelée de 240 pages 

æ et deux disquettes, la 

ARE version de SideKick 

regroupe les accessoires de bureau 

suivants, la taille mémoire en octets 
étant indiquée entre parenthèses : 

«+ Agenda (2468) calendrier 
mensuel avec des possibilités 
d'entrer des notes pour chaque jour 
et d'afficher un calendrier hebdo- 
madaire ; 

+  Bloc-Notes+ (10 978) : un mini- 
traitement de texte (inspiration 
MockWrite) qui génère des 
documents en format ASCII et 
comporte des fonctions d'édition et 
de recherche ; 

+  Calculatrice+ (6 020) : une cal- 
culatrice professionnelle multi- 
fonctions avec bande-papier 
témoin imprimable ; 

«+  Composeur (2 447) : 
seur téléphonique ; 

* Heure (1 060) : horloge analogi- 
que (inspiration Big Ben) avec 
aiguille des secondes ; 

+  Idées+ (113 057) : un processeur 
d'idées (inspiration Think Tank) ; 

+ MacPlan (40 139) : un tableur 
avec possibilités graphiques ; 

+ Mémo-Listes (2433) : quatre 
listes prédéfinies servant d'aide- 
mémoire ; 

«  ReadyPrinter (7 O3) : un spooler 
qui imprime les fichiers ASCII en 
vous laissant l'accès au clavier et à 
la souris ; 

+ Terminal (14 224) : programme 
de communication pour modems 
de type Hayes 300, 1200 et 2400 
bauds. Intégré avec Bloc-Notes+ 
pour l'émission, la réception et 
l'édition des données. 





un compo- 


En plus de tout cela, l'application 
SideKick offre une version plus 
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A l'essai : 


SideKickr: 


Editions MEV 
: 39-51-24-43 


. CRéception 


Herrecer Notes} 
{autre entrée } 


riche et plus élaborée des programmes 
de renseignements personnels, de 
composition téléphonique et de 
gestion du temps que ceux fournis par 
les accessoires. 


Enfin, les applications /dées+, 
Configurer Terminal, Copie 
Répertoire, Editeur Mémo-Listes et 
PrintManager vous rendent un certain 
nombre de services complémentaires. 


Nous pouvons regretter qu'il soit 
nécessaire de loger dans le même 
lecteur que le fichier système les 
fichiers de données de SideKick : cela 
peut vite devenir encombrant pour 
ceux qui n'utilisent pas de disque dur, 
surtout si on tient compte de la place 
prise par les accessoires de SideKick. 


SideKick est avant tout un outil de 
communication. En effet, dès l'appel 
du programme, une fenêtre apparaît 
(voir copie d'écran), où l'on voit que 
l'aspect communication domine, ne 
serait-ce que géographiquement. 


Un bon exemple de convivialité : un 
clic sur un nom dans la zone 





Répertoire 
Duback, Alexandre 
Duvivier, Jean-François 
Editions TE 
Gerric, Daniel 
Gassèée, Jean-Louis 
Gates, Bill 
Gourévitch, Jesn-Michel 
Herz, Olivier 





Appel pour vérifier la dBIé fa disponibilité d pi RTE 
M numéro dans les kiosques. 





Répertoire affiche les données 
relatives à ce nom, un second clic 
réaffiche la liste des noms. Un double 
clic sur un nom ou une fiche fait 
apparaître la totalité de la fiche en 
mode Edition. Mon seul regret à ce 
niveau est que la barre des menus 
disparaît alors, ce qui interdit de 
couper/coller si, par exemple, l'on a 
entré des données au mauvais endroit 
et que l'on cherche à les déplacer. 


L'Agenda 


L'Agenda est bien pratique, surtout si 
vous avez une activité sédentaire et 
gardez votre Mac allumé tout le 
temps. Il semble avoir un problème 
avec les systèmes français (au moins 
en version 4.0) : en effet, dans la 
présentation hebdomadaire, il n'affiche 
pas le nombre des unités pour la date 
du jour, mais seulement le nombre 
des dizaines. Il est regrettable aussi 


que la présentation hebdomadaire ne 
soit possible que pour trois semaines 
(semaine passée, présente et future) : 
on est encore loin de la flexibilité 
offerte par ce merveilleux outil rétro 








Li 2 


SR CSEETrESEZS 


SE EEE Er 


sa FS 35 ET 


IEEE SZ 











| En ‘bonus’ sur la disquette Pom's Mac 33, nous avons placé un 
‘Coucou’ somptueux écrit par notre ami et collaborateur Alain 
Bohec. Il affiche, outre l'heure, la date et la fête du jour. Si vous 
démarrez votre Macintosh avec la disquette en question, le 





qu'est l'agenda papier ! 
Bloc-Notes 


Cela ressemble parfaitement à 
MockWrite, avec la possibilité de 
rechercher (mais pas de remplacer). 


Idées+ 


C'est en fait un Think Tank plus 
qu'un More. Toute rubrique peut être 
ouverte et développée en un texte 
complet : très agréable. Au chapitre 
des imperfections : le remplacement 
avec intervention manuelle semble ne 
pas marcher du tout (pire, il ajoute 
purement et simplement le texte de 
remplacement là où se trouve le 
curseur), sauf s'il est systématique ; 
et, dans ce cas, il va seulement du 
curseur à la fin du texte sans faire un 
tour complet de celui-ci. 


Si MacWrite 4.6 présente 
encore des améliorations, il 
a un côté rassurant par la 
persistance d'au moins un 
bug. pas de dépaysement ! 


La méthode pour obtenir 
une bombe demeure la 
suivante : 


Dans la fenêtre … 


de recherche, saisir un mot, 
effacer un caractère à 
laide de BackSpace, puis 
tenter de le reposer par 
Commande-BackSpace... 


Autre problème, mais la 
version 4.6 n'est pas 
responsable, Orthogiciel 2 
semble un peu perdu lors 
de la réécriture des fichiers : 
normal. il a été conçu avec 
la version 4.5. 





MacPlan 


C'est uniquement en épluchant la 
documentation que j'ai découvert 
l'existence de fonctions dans MacPlan. 
Celles-ci ne sont pas visibles 
facilement (pas de Coller une 
fonction, de liste des fonctions à 
l'écran ou d'écrans d'aide). Autre 
désagrément : quand on ferme 
MacPlan en ayant oublié de 
sauvegarder le tableau réalisé, celui-ci 
est perdu : il n'y a en effet pas de 
message d'avertissement demandant 
confirmation de la fermeture sans 
sauvegarde, que ce soit après création 
ou après modification. 

La possibilité d'obtenir rapidement un 
graphe est bien agréable, mais le 
mode de titrage est très lourd : on ne 
peut pas, comme dans Excel, 
sélectionner à la fois les légendes et 
les valeurs ; plusieurs étapes sont 
nécessaires pour ajouter à un graphe 
un titre, une légende, et des 
indications sur l'axe des abscisses. 


Mémo-Listes 


Cet accessoire gère quatre feuillets, 
que l'on fait défiler comme ceux du 
Calepin : Alarmes, Cartes de crédit, 
Choses à faire et Dépenses. Il me 
manque, dans Choses à faire, soit la 
possibilité de facilement modifer 
l'ordre des choses à faire (dont 
l'urgence relative varie dans le temps), 
soit celle d'attribuer à chaque chose à 
faire un numéro d'urgence en fonction 
de quoi tout se classe. Je continue 
donc à utiliser Excel à cet effet, 
MacPlan étant incapable de prendre en 
charge ce classement puisqu'il ne 
comporte pas de facilité de tri. 


Fiabilité 


Je me suis trouvé plusieurs fois en 
panne, soit avec des bombes, soit — 
lors de l'appel d'un accessoire — avec 
un curseur totalement bloqué : dans 
les deux cas de figure, bien entendu, il 


a fallu redémarrer. 11 semble que ces 
ennuis surviennent quand on utilise le 
Switcher : c'est bien malheureux car 
une application comme SideKick est 
normalement faite pour rester 
disponible à tout moment en 
airière-plan grâce à un outil tel que le 
Switcher. Ainsi, pour la rédaction de 
l'article, j'avais MacWrite et SideKick 
en parallèle grâce au Switcher ; et j'ai 
rapidement appris à effectuer une 
sauvegarde avant chaque nouvel essai 
d'un accessoire ou de l'application 
SideKick. 


Conclusion 


En conclusion, SideKick 2.0 est un 
produit sérieux, bien documenté, et 
avec des possibilités attrayantes, mais 
comportant quelques problèmes de 
finition. Ce que je lui reproche le 
plus, Borland n'y pouvant vraiment 
rien, c'est de ne pas pouvoir l'utiliser 
sur un Mac portable et fonctionnant 
sur batteries, qui m'accompagnerait 
dans tous mes déplacements. En effet, 
un agenda — par exemple — doit être 
tou jours accessible. C'est pourquoi je 
vois bien SideKick utilisé par les 
personnes travaillant à poste fixe : un 
excellent outil pour sédentaire. Un de 
mes amis, ayant un Mac au bureau et 
un à la maison, me dit qu'ils'en sert 
souvent à condition de toujours garder 
sur lui la disquette avec les fichiers 
SideKick : certes, c'est une solution 
possible, mais qui n'est pas d'une 
grande simplicité ! 


Au chapitre de la francisation du 
logiciel, on peut regretter que les 
raccourcis n'aient pas été adaptés : 
utiliser F (Find) pour Rechercher et N 
(Next) pour Suivant n'est pas 
vraiment convivial. Il semble aussi 
que le logiciel original n'ait pas bien 
respecté les normes de programmation 
indiquées par Apple aux développeurs, 
ce qui expliquerait le bug de l'agenda, 
où le chiffre des unités manque dans la 
présentation hebdomadaire, 








coucou sera lancé automatiquement et, dans ce cas, il 
vous faut savoir qu'il est nécessaire d'appuyer sur la 
touche ‘F' {comme Fin ou Finder) pour en sortir. Signalons 
aussi qu'une pression sur la souris fait sortir le coucou ! 
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e système de dossiers ct 
fichiers hiérarchisé du 
Macintosh Plus est net- 
À tement plus pratique que 
ESS l'ancien système MFS. 
De même, le disque dur est intéressant 
pour le nombre important d'ap- 
plications et de documents qu'il peut 
contenir. Le problème est de retrouver 
l'application dont on a besoin, en 
particulier lorsqu'on a l'habitude de 
travailler avec les dossiers, sous- 
dossiers, sous-sous-dossiers..., ou 
lorsque plusieurs personnes utilisent 
le même disque dur, chacune ayant ses 
propres dossiers. 





Deux solutions s'offrent alors : 

*  dupliquer l'application dans chaque 
dossier où elle s'avère nécessaire, 
ce qui prend inutilement de la 
place ; 

+ faire la recherche manuelle de 
l'application, en prenant soin de 
revenir dans le bon dossier lors de 
l'enregistrement. 


Pom’s vous propose une troisième 
solution qui consiste en une petite 
application — ‘Appl Search' — de 
quelques kilooctets seulement, donc 
dupliquable sans perte importante de 
place. 

La première fois, elle vous propose de 
choisir une application, et par la suite 
elle cherche cette application sur un 
des disques connus par le Mac (en 
ligne), y compris les disques en HEFS, 
et la lance si elle l'a trouvée. 


Vous pouvez renommer 'Appl Search' 
à votre guise et, en particulier, lui 
donner le même nom que l'application 
cherchée puisque : 

* la recherche se fait à La fois sur le 
nom et sur le créateur (signature 
comme, par exemple, ‘Ta2n' pour 
Inter Pom’s) ; 

+ il n'est possible de choisir que des 


Georges Zwingelstein 


d'application 


O 


Recherche et ouverture automatique 


Uous avez appuyé sur la touche % en m'ouwrant. 
Uous allez pouvoir changer l'application que je cherche 


et ouvre d'habitude. 


6. Zwingelstein 


CRD 


applications ayant un créateur (ce 
qui est le cas de la grande majorité 
des applications intéressantes) ; 
*__"Appl Search n'a pas de créateur. 
Il n'y a donc pas de risque de bouclage 
avec une autre application du type 
‘Appl Search' se trouvant dans un 
autre disque ou dossier. 


Si vous désirez changer d'application 
par la suite, il suffit d'appuyer sur la 
touche commande au moment du 
lancement de ‘Appl Search'. fl vous 
sera proposé le choix d'une nouvelle 
application. Si vous annulez 'Appl 
Scarch' redeviendra comme lors de sa 
première utilisation. 


Afn que la recherche soit la plus 
rapide possible, il est conseillé de 
mettre les applications dans un des 
premiers dossiers dans l'ordre 
alphabétique. En effet, la recherche 
dans les dossiers se fait suivant cet 
ordre. 


Note : il existe des applications qui 
modi fient certaines procédures du file 
manager. Celles-ci font alors la 
recherche d'un fichier dans tous les 
dossiers et sous-dossiers des disques 
formatés en HFS, et permettent alors 
à certaines applications non 
compatibles avec ce Système de 
fonctionner quand même. Nous 





connaissons en particulier HFSOpen’ 
dont les modifications de recherche 
automatique sont commandées par la 
touche option. Avec les modifications 
de cette application, ‘Appl Search 
peut donner une erreur système si la 
touche option est enfoncée, car la 
recherche dans le HFS se fait même 
avec lafonction PBHGetF Info, ce qui 
n'est pas normal puisqu'une 
application utilisant cette fonction est 
sensée fonctionner en HFS. Donc, ne 
pas appuyer sur la touche option lors 
du lancement de ‘’Appl Search, ou 
bien appuyer jusqu'au lancement 
effectif de l'application recherchée. cé 





Fichier 
‘Appl Search.Link’ 


# 


;le résultat sera baptisé ‘Appl Search 
; (par défaut) 


; commence par le fichier .Rel 
App Search 


;'ajoute maintenant les ressources 
/Include Appl Searchrsre 


; teminé. 
{End 


<a 
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49 








…—. + + 


PE SSSHSETENS 


] 


Fichier 
‘Appl Search.lJob' 


Asm Appl Search.Asm Exec Edit 
RMaker Appl SearchR Exec Edit 
Link Appl SearchLink Finder Edit 


Fichier 
‘Appl Search.R' 


* le symbole T indique la 
continuité de la ligne 


* 


“resource pour l'application Appl Search 


Appl Searchrsrc 


50 50250 450 
128 
da 


* DITL de !a fenetre d'aterte 
Type DITL 

,128 
4 


Button 
170 150 190 250 
OK 


StaticText Disabled 

+0 7050 390 

Recherche et ouverture automatique 
d'application 


StaticText Disabled 
60 10 130 390 
40814249 


Static Text Disabled 
440 10 160 390 
G. Zwingelstein 


Type DLOG 
,129 
Recherche 
50 50 250 450 
visible NoGoAway 
0 
0 
129 


* DITL du dialog de recherche 
Type DITL 

129 
4 





Button 
170 150 190 250 
Annuler 


StatcText Disabled 
1010 50 390 
Je cherche l'application 0. 


Static Text Disabled 

60 10 130 390 

Pour arrêter la recherche et revenir au J 
bureau, cliquer sur ++ 

le bouton ‘annuler'*i 


StaticText Disabled 
140 10 160 390 
G. Zwingelstein 


; resource non purgeable 
Type GNRL 

TPS et créateur ,256 (0) 
 … 

; resource non purgeable 


Type STR 
Nom ,256 (0) 


,257 (32) 
Je ne sais pas encore quelle application jef 
dois chercher et ouvrir. \0D++ 
Vous aller pouvoir en choisir une. 


258 (32) 
Vous avez appuyé sur la touche \11 en 
m'ouvrant.\0D++ 
Vous allez pouvoir changer l'application] 
que je cherche et ouvre d'habitude. 


,259 (32) 
Désolé, je ne trouve plus l'application 


,260 (32) 
Désormais, je chercherais et ouvrirais] 
automatiquement l'application 


,261 (32) 
Vous avez annulé. La prochaine fois, jef 
vous demanderais ++ 
quelle application vous désirez ouvrirf 
automatiquement. 


,262 (32) 
AODPour changer d'application, appuyezf 
sur la touche \11 ++ 
enm' uvrant. 


263 (32) 
Désolé, je ne peux pas lire ce dont j'aif 
besoin; ++ 
je suis hors d'usage! Erreur N° 


,264 (32) 
Désolé, je ne peux pas enregistrer le nom] 


de la nouvelle application.\0D ER 





265 (32) 
Erreur N° 


,266 (32) 
Le disque est protégé en écriture 


Source 
‘App! Search.Asm' 


‘le symbole Ÿ' indique la continuité de la 
ligne 


; Programme de recherche et de lancement 


; automatique d'application 

: G. Zwingelstein 

include  Traps.D 

Include  HFSMacs.txt 

inciude  SysEquD 

include  SysErr D 

include  FSEqu_D 

inciude  PackMacs.Txt 

Start JSR InitManagers 


; Lit nom, pe et crésteur de l'application par 
; défaut 
; Funcbon ReadApplHdies: OSErr; 


CLR (SP) 
JSR eadAppiHdies 
MOVE  (SPH,D0 
BEQ @i 

: Erreur lecture ressources 


: Procédure ShowAlen{StiD1, StriD2, SrlD3: 
‘Integer; ErrNum: Integer); 
MOVE  #263,-{SP) 


CLR (SP) 
CLR -{SP) 
MOVE  DO-{SP) 
JSR ShowAlert 
BRA Fin 
; Teste l'appui sur la touche option 
; Function TestKey: Boolean:; 
@1 CLRB SP) 
JSR TestKey 
TSTB  (SP}+ 
BEQ noOpton 


: Change le nom et le créakur de l'application par 
« défaut 
: Procédure Show Afent{StriD1, SrriD2, StriD3: 
: Integer, ErrNum: Integer); 
MOVE  #258,(SP) 


CLR SP) 
CLR  «{SP) 
CLR  <SP) 


JSR ShowAïert 
: Function GetApplHes: Boofean:; 


CLRB  -(SP) 

JSR GetApplHdles 
TST.B (SP}+ 

BNE 


; Anulafon: efface leno m 
; Procédure SetString{h: Handle: theSting: 
’ Str255 } 
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MOVEL  ApplNameHdle(A5)},-(SP} 
PEA  NulSring 


_SetString 
BRA Crargefème 
le nom existe-t-il ? 
noOption 
MOVEL  AppINameHdle{A5),A0 
MOVEL  ({A0),A0 


MOVEB (A0) D0 
BNE aame 


: Pas de nom par délaut : demande un nom 


: Procédure ShowAlerÿStriD1, StriD2, StriD3: 


Integer; ErrNum: Integer): 


MOVE  #257,{5P) 
CLR  -{SP) 
CLR {SP 
CLR  4{SP) 


JSR ShowAlert 
; Function GetApplHdies: Boolean; 


CLAB  -{SP) 
JSR GetApplHdies 
TSTB (SP) 


BEQ Fin ; Annule 


: Ervegistre le nouveau nom 
: Function WriteApplHdles: OSErr: 


CLA (SP) 

JSR WriteApolHdles 
MOVE (SP)+,D0 

BEQ Retourinder 


; Erreur pendant l'enregistrement 


: Procédure ShowAlen{SriD1, StriD2, StriD3: 


: Integer: ErrNum: Integer); 
MOVE  #264.-{(SP) 
CMP #wPÆr,00 


BNE @1 

; disquette protégée en écnture 
CLR DO 
MOVE  #266,{SP) 
BRA @2 

: autres erreurs 


@1 CLR -(SP) 
@2 CR di 

D0,-(SP) 
JSR ShowAlert 
BRA Fin 


RetourFinder 
; reloume au bureau avec message sur 
: l'appkcabion choisie 
MOVEL  ApptNameHdie{A5),A0 
MOVEL  (A0),A0 
MOVEB  (A0)D0 
BNE @1 
; pes d'application 


; Procédure ShowAlert{SkiD1, StriD2, Str!D3: 


Integer; ErrNum: Integer): 
MOVE #261-(SP) 


CLR (SP) 
CLR (SP) 
CLR -(SP) 
JSR ShowAlert 
BRA Fin 

; une appécs Don 


; Procédure ShowAert(SiD1, StriD2, StriD3: 


: Integer; ErrNum: Integer); 
@t MOVE #260,-{SP) 


MOVE #256,-(SP) 
MOVE #262,-(SP) 
CLR -(SP) 
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JSR ShowAlert 


Fin JSA SetWatchCursor 
ATS ; On Quire 


: H faut chercher et lancer l'applicabon 
aName 
; Procédure HLockh: Handie); 


MOVEL  AppNameHdie(AS),A0 
HLock 


ÿ Procédure HLock(h: Hsndie); 
MOVEL  AppllypasHdie{AS),A0 
_KLock 


; Cherche l'apphcation 
; Fonction GetApplVRefNum (AppiNamePtr: 
:  SringPrr, ff ypes: Araÿf0. 1] of OST ype; 
: var Amue: Boolean/: leger, 
CLR (SP) 
MOVEL AE A0 
MOVEL  (A0){(SP) 
MOVEL esse A0 
MOVEL {A0)-(SP 
PEA Annule(A5) 
JSR GetApp!VRefum 


MOVE  (SP}+,ApplVRefNiim A5} 
BNE 1 

TST.B  Annule{A5} 

BNE Fin 


; impossible de trouver l'applicabon sur un des 


: volumes 
; Procédure Show Alait({StriD1, StiD2, StrD3: 
; Integer; ErrNum: Integer): 


MOVE  #259,-{SP) 
MOVE  #256,-(SP) 
MOVE #262,-(SP) 
CLR (SP) 
JSR ShowAlert 
BRA Fin 

@1 

: Lance l'application trouvée 


JSR SetWatchCursor 


; Function SetVol{volName: SringPtr; vRelNun: 
Integer): OSE:r; 


CLR -{SP) 

CLRL  -{SP) 

MOVE  ApplVRetNum(AS),-{SP) 
JSR SetVol 

MOVE  (SP}+,D0 


Un ‘bug’ du Microsoft 
Basic Compiler 


& 


Si votre compilateur vous affiche, 
sans raison apparente, le mes- 
sage : 

System error 43: File not 


found 
inutile de chercher une erreur de 


syntaxe dans le fichier source : le 
nom dudit fichier contient très 
probablement un caractère ac- 
centué.… 














; Procédure Launch 
MOVE  #0,-(SP) 
MOVE.L  ApplNameHdle(A5),A0 
MOVEL  (AO).-(SP) 
MOVEL  SP,A0 
Leunch 


; chaine de longueur nulle 
NuliString DC 0 


: Procédure InitAN; 
: hifialise les managers 
InitManagers 
PEA «4(A5) 
_initGraf 
_hitFonts 
MOVEL  #$0000FFFF,DO 
_FlushE vente 
_IntWindows 
_ItMenus 
CLAL  -(SP) 
_{nitDialogs 
_YElnit 
[initCursor 
RTS 


:  SetWatchCursor 


; Procédure SetWatchCursor; 
; Curseur en fonme de montre 
SetWatchCursor 
; Funchon GetCursor{eursor!D: Integer }: 
CLRL  -(SP) 
MOVE  fwatchCursor(SP) 
_GetCursor 
MOVEL  (SP)+,A0 


: Procédure SetCursor(ersr: Cursor);: 
MOVEL  (A0)-(SP) 
_SetCursor 
RTS 





: FuncSon TestKey: Boolean; 
; Teste appui sur la touche option 


TestKey 
LINK. A6,#-16 
; Procédure GetKeys{var theKeys: KeyMap}: 
PEA -16(A6) 
_GeiKeys 
; Function BitT st{bytePtr: Ptr; bitNum: 
;  Longint} Bookean; 
CLRB  -(SP) 
PEA -16(A6) 
MOVEL  #48,-(SP) 
_BitTst 
MOVEB  (SP)4,8(A6) 
UNLK A6 
RTS We) 
: _ ShowAlert eo ce | 
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; Procédure ShowAlen(StriDi, StriD2, StriD3: 

; Integer; EnNum: Integer); 

: Affiche la StopAlert d'ID 128 avec message d'ID 
: donné et de No donné (si non nul) 


ShowAlert 
LINK A6#-268 
MOVEML D3/43;-(SP) 
_initCursor 

: Numéro de l'erreur 
MOVE 8{A6),D0 
BEQ @ 


: Procédure NumToString(theNum: Longint; var 
theString: Str255): 


EXTL DO 
LEA -256(A6).A0 
_NumToString 
BRA @2 
@1 CLAB  -25(A6) 


: Prépare les chaines de l'aleite pour ParamT ext 
@2 MOVEO #43 
LEA -268(A6),A3 
; Boucle des chaînes de l'alerte 
@3 MOVE  10(A6,D3),00 
BEQ @4 
; Récupérel chaine d'ID donné 
: Function GetSring(string/D: Integer): 
StringHandle; 
CLAL  -(SP) 
MOVE  D0,-{SP) 
_GetString 
MOVEL  {SP}+,A0 
MOVEL  A0{A3}+ 
: prépare pour paramText 
MOVEL  (A0)-(SP) 
; Procédure Hlock{h: Hande); 
_HLock 
BRA @5 
da nevide 
@4 CLAL  (A3}+ 
CLAL  -(SP) 
; demière chaine ? 
@5 SUBQ #2,D3 
BPL @3 


; nsère les chaines dans l'alerte 
; Procédure ParamText{param, param, 
param?, param3: Str255); 
;16s 3 premiers paramètres sont déjà sur l'a pile 
PEA  -256{A6) 
_ParamText 
; Unlock les chaînes de l'alerte 
MOVEQ  #2,D3 
; Boucke de Unlock des chaines de l'alerte 
@6 MOVEL :-{A3),00 
BEQ @7 
: Procédure HUnLock{h: Handle}: 
MOVEL  D0,A0 
_HUnLock 
: demière chaîne ? 
@7  DBRA D3,@6 
; Affiche la fenêtre d'alerte expliquant l'anomalie 
: Procédure SiopAleWalentiD: Integer; 


filterproc: ProcPr}: Integer: 

CLR -(SP) 
MOVE  #128,-{SP) 
CLAL  -(SP) 
_StopAlert 
MOVE  (SP)+,D0 

: Reboir 
MOVEML (SP)+,D3/A3 
UNLK A6 
MOVEL (SP}+,A0 


ADDA  #8.SP [ 
JMP (A0) 2 2] 


ReadApplHdies 2 


; Function ReadApplHdles: OSErr 
; lit le nom etle créateur de l'application par 
; défaut à lancer 
ReadApplHdies 
LINK A6,#0 
: Funcbon GelString(string!D: Integer): 
-_ SringHandle; 
CLAL  -(SP) 
MOVE  #256.{SP) 
_GetString 
MOVEL  (SP)+AppINameHdie(AS5) 
BEQ 1 
; Function GetResource(theT ype: ResT ype: 
thelD: Integer }: Handie; 
CLAL  -{SP) 
MOVEL  #GNRL',-(SP) 
MOVE  #256,-(SP) 
_GetResource 
MOVEL  (SP}+.ApplTypesHdie(AS) 
BEQ @1 
@ 


: Function ResError: OSErr; 
CLR SP) 
_ResError 
MOVE {SP)+,8(A6) 
UNtK A6 
RTS 


GetApplHdies 


; Function GetAppiHdes: Boolean; 
: récupère un nom de fichier par le dialogue 
; standard de SFGetF ile 


GetApplHdles 
LINK A6#-(90) 


; Procédure SFGetFile(where: Point; prompt: 
St255.fleFifter: ProcPtr; numT}pes: 
Integer: YypeList: SFT ypeList; digHook: 

: ProcPr:; var reply: SFReply): 


MOVE  #80,{SP) 
MOVE (SP)-(SP) 
CLAL  -(SP) 
PEA AppiFitter 
MOVE  #1,4SP) 
PEA APPLType 
CLAL (SP) 
PEA -74{A6) 
_SFGetFile 
MOVEB -74rGood{A6)/8(A6) 
BEQ @ 

: Sauve le rom 


; Procédure SetSbing(h: Handle; heString: 
:  Str255} 
MOVEL  AppilNameHdie{AS),-(SP) 
PEA -74#Name(A6) 
_SetString 
; Sauve le type et créateur 
: Function GetFinfo(fleName: St255; vRefNum: 
Integer; var ndrinlo:Finto}: OSErr; 
CLA (SP) 
PEA -74+Name(A6) 


MOVE  -74+Volume(AB).-(SP) 
PEA -(74+16)(A6) 
JSR GetFinfo 


MOVE  (SP}+,D0 
LEA -{74+16)(A6),A0 
MOVEL  AppilypesHdle{A5),A1 
MOVEL  (Aï},A1 
MOVEL (A0)+,(At}+ 
MOVEL  (A0)+(A1)+ 
@i UNLK A6 
RTS 


AppiType 0C 


; Function ApplFilter(paramBlock: ParmBlkPtr): 
: Ban 


« Filtre les applicätions sans créateur pour 


: SFGetFils 
ApplFiter 
SF 8(SP) 
MOVEL  4{SP),A0 
TSTL  ioFlUsrWüs+fdCreator(A0) 
BNE @1 
ST 8(SP) 
@1 MOVEL (SP}+,(SP) 
RTS 


; Function WiriteApplhHdies: OSErr; marqueles 
ressources comme changées (elle seront 
enregistrées en quifant) 
WriteApplHdies 
LiNK A6,#0 
; Procédure ChangedAesource 
(theResource:Handle); 


MOVEL  ApplNameHdle(AS).(SP) 
ESOUTCE 


, 


: Function ResError: Integer, 
CLA SP) 
_ResError 

OVE  {SP}+,8(A6) 
BNE @1 

: Procédure ChangedResource 

{theResource:Handie); 

MOVEL  AppTypestide(AS)-(SP) 
_ChangedResource 


: Function ResErrr: hicyer: 
CLR -(SP) 
_ResError 
MOVE  (SP}+,8(A6) 
BNE @t 
; Procédure SetResPurge(install: Boolean); 
ST (SP) 
_SetResPurge 
@1 UNLK A6 


; Fonction GetApplVReRum (ApplNamePrr: 
StringPvr; ‘Types: Aray{0..1] of OSType; 

; var Annile: 80olean}: Integer; 

:Cherchele fichier donné avec le type et créateur 

: donné retourne un volume ou working droctory 

: reference number ou 0 s] non trouvé 


GetAppl|VReRdum 
LINK  AG#-(ioHVOEiSize+8) 
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MOVEML 03-04,-(SP) LEA -oHVQEISize(A6),A0 CLR (SP) 
CLR 20(A6) CLRL loVNPtr{A0) MOVE  D4,-(SP) »| 
CLR ioVRefNum(A0) MOVEL #2. A 
: Initlaise dialog d'annufaüon MOVE  DäioVolndex(A0) MOVEL A6, LS 
MOVEL  8(A6),A0 _HGetVinto JSR Fr NDRe Num 
SF (A0) BNE NotFounded MOVE {SP)+,D4 
: Function GetString(stringlD: Integer) ; volume HFS ou MFS (ou autre) ? BEQ NexiVolume 
StingHandie; MOVE  ioVReiNum{A0).D4 
s are Founded 
CERL  4{SP) UE ne MOVE D4,20(A6) 
MOVE  #262,-(SP) ; He | 
_GetString CMPI bd En | 
MOVEL  (SP}+,A0 ; 
MOVEL _ A0,{oHVOEISize48){A6) LR ee 
: Procédure HLock(k: Hand); : Procédure DisposDialog {theDlalog: DialogPtr): 
_HLock ; Cherche l'application sur le valume MFS volume MOVEL  -(ioHVOEISize+4){A6) J 
s Focale Eat parami, MFSVol SP) 
+ param, param3: St255): Énocen End ; ; DisposDialog 
' Ë ppiftheV RelNum: Integer}: - 
MOVEL  16(A6).(SP) OSErr: ie RES 
Cl De er CLR (SP) MOVEL _ (SP}+,A0 
ce Le, Le DE 
GLRL : “oi JSR  FindAppl se | 
_Faramlie TST (SPF MmnN MT... um 
: Procédure H{iLock{h: Handie): BNE NextVolume FindAppl 
MOVEL -{ioHVQEiSize+8){A6),A0 BRA Founded NU . tbe ee _ 
_HUnlock 
re GeenDil q da aD: mega dre M FindApp{teV RefNum: Integer: 
:  dStorage: Pt; Behind: WindowPrr}: ol : 
:  DialogPr: : Fonction FindAppIWDRefNum {ioV RelNurn: Christ cap PRES 
CLRL -(SP} ; Integer; ioDiriD! Longlnt}: Integer: : HE Attention : Fonction inteme à la Fonction 
MOVE  #129,-(SP) : GetApp{VRefNum donc pointeur sur variable 
CLRL  -(SP) . locale an plus sur la pie 


MOVEL  #-1-(SP) 
_ GetNewDiel 


Copies! "in resrorisee 








og 
MOVEL Fo -foHVOEISize+4) | _ : Function PBGetF Info(paramBlock: ParmBkP tr: 
| . .  async: Boolean); OSErr; | 
re d'écran LEA -ioFOElSize(A6)A0 | 
> MOVEL  8{A6),A! 
: Boucle pour chaque volume M | n | tel n O 27 MOVEL _ 16(A1).ioFileName(AO) 
CLR 03 y MOVE  12(A6)ioVRefNum(A0) 
; Volume suivant CLR ioFileT ype(AO) 
NextVolume CLR ioFDirindex(A0) 
: Gestion annubation Paruilyaunan, notreprogramme Minitel du _GetFilelnio 
; Funcäon GereAnnuke: Bootean, n° 27 semble avoir encore beaucoup de PRE 2 al 
que, ep) SUCCÈS. Vous êtes cependant nombreux à : Check type et créateur 
JSR GeréAnnile buter' sur le mode Copie d'écran. Voici : Function Ckeckinlo (hdrinfo:Finfo}: Boolean 
TSTB  (SP}+ résumée la procédure d'enregistrement : CLRB  -{SP) 
BNE Not£ounded PEA ioFIUsrWds{AO) 
:Pas és 7, ie 1 metrel'ordinateurenmode réception de LEE RUOLE 
Fe Dr ; copies d'écran ; TSTB {SP} 
Vs Ee einer 07) 2 depuis le Minitel, consulter les pages BNE  @2 
TST FSFCBLen j : Pas le bon type (File not found) 
BPL Systems Vidéotex ; | @t MOVE  #infErr,lé{A6) 
3 lorsqu'un écran doit être enregistré sur Ô 
; Système non HFS ob 5 @2 UNLK A6 
l'ordinateur et seulement lorsqu'il est MOVEL (SP}+,A0 
: Function PBGetV!nfo(paran&lock: ParmBlkPtr; affiché sur le Minitel, presser RETURN ADDA  #6,5P 
:  async: Boolean): OSEn; {sur l'Apple //} ou cliquer Réception de JMP {A0) 
a et D copies (sur le Macintosh}: D 
CLR ioVRefNum( A0) 4 faire FNCT-I suivi de F {le Minitel dolt :  FindApplWORefNum 
MOVE  D3oVoindex(A0) être doté de la touche FNCT). enterrer een nennennens tee 
_GetVolinfo | 
BNE NotFounded ; Fonction Fi: dAppiWORefNum (ioVReNum: 
MOVE ioVRefNum(A0).D4 Reprendre à la phase 3 pour chaque nou- |‘ poor ioDiaD: Longint: Integer: 
BRA MFSVol velle page : les phases 3 et 4 doivent | _: Chæcho existence de l'application donnée sur 


s'enchaïîner sans changer de page Minitel. ; volume HFS et relourne le working directory 


; Système HFS ; : : reference number le contenant ou À sinon 

Si vous avez le serveur envoie le message | Le : Foncrèm item à la Fonction 
SystemHFS Caractère ";" erroné, faites FNCT-P suivi de : GetApp/VRetNum donc pointeur sur variable 
: Function PBHGetVinto (paramBlock: l au début de l'ensemble des copies d'écran. : locale en plus sur la pile 


: … HPamBlkPtr: async: Boolean): OSErr: FindAppi\WDRefNum 
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RIM LS RSS 


KE Fe 


= 














LINK A6,#-ioHF QEISiz 
CLR 18(A6) 
: Function PBHGetF Info (paramBlock: 
HParnmBlkPr; async: Boolean); OSErr; 


LEA -joHFQEISiz(A6),A0 
MOVEL  8{A6)Aî 
MOVEL  46(At),oFileName(AO) 
MOVE  16(A6).ioVRefNum(A0) 
CER ioFDirindex(A0) 
MOVEL  12(A6).ioDiriD(A0) 
_KGetFileinto 
BNE @1 

: Check type st créateur 

; Function Ckeckinfo (ndrinto:Finb): Boolean 
CLRB SP) 
PEA ioFIUsr Wds(A0) 
MOVEL  8(A6),{SP) 
JSR Checkinio 
TSTB  (SP}+ 
BEQ @i 

: Bon type et créateur 

; Function Ge WDRefNum (VRefNum: Integer; 

WODir!D: Longinÿ): Integer; 


CLR -(SP) 
MOVE 16(A6).-(SP 
MOVE  12({A6),-(SP 
JSR Get\VDReiNum 
MOVE {(SP}+,18(A6) 
BNE @3 
@1i LEA 0HFQEISiz(A6),A0 
CLRL  ioFileName(AO) 
CLR ioFDirindex(A0) 
MOVE  16(A6)ioVRefNum(A0) 
@2 
; Gestion amulaïon 
: Function GaeAnnul: Boolean: 
CLRB SP) 
MOVEL  8(A6),-(SP) 
JSR GereAanule 
TSTB  (SP} 
BNE @3 
; Directory suivant 
LEA -ioHF QEISiz{A6),A0 
ADD #1.ioFDirindex(A0) 
MOVEL  12{A6)loDrDirlD(A0) 
_GetCatinto 
BNE @3 
BTST #4,joFlAttrib(A0) 
BEQ @? 


; Appelle la fonction pour le directory trouvé 
; Fonction Find4pplWDRefNum fioV RefNum: 
integer; ioDiriD: Longinl}! Integer; 


CLR -(SP) 
MOVE  6(A6),-(SP) 
MOVEL  ioDrDirID(AC),-(SP) 
MOVEL  8(A6)-{SP) 
BSR FindApp WDRefNum 
MOVE  (SP}+,18(A6) 
BEQ @2 
@3 UNEK A6 
MOVEL (SP}+,A0 
ADDA  #10,SP 
JMP (A0) 
;  Checkinfo 


; Function Ckeckinfo (drinfo:Flnfo): Boolean 
: Vérifie le type et créateur du fichier 


Chackinfo 
SF 12(SP) 

Check type 
MOVEL  8(SP),A0 
MOVEL  4(SP)A1 
MOVEL 12(A1),Af 
CMPL  (A0)+{Af)+ 
BNE @1 
CMPL  (A0)+{(At)+ 
BNE @1 

; bon type etcréateur 
ST 12{(SP) 

@1 MOVEL (SPh,40 
ADDA  #8,SP 
JMP (A0) 

: GereAnne 


; Function GereAnmule: Boolean; 

; Gère les événements pendant la recherche de 
; l'application 

; li! Attention : Fonction inteme à la Foncbon 

; GetAppiVRelNum donc pointeur sur variable 


; Jocafe en plus sur la pile 
GereAnnule 
LINK A6,#-{evtBlkSize+6) 


; Anaulation déjà effectuée ? 
MOVEL  8{A6),A0 
MOVEL  8{A0),A0 
MOVEB  (A0)12(A6) 
BNE @?2 


; Function GetNextEvent (eventMask: Integer; var 
theËvent: EvantRecord}: Boolean; 


# 


@1i CLRB  -(SP) 
MOVE _ #-1,-(SP) 
PEA -evtBIkSize(A6) 
_GetNextEvent 
TSTB  (SP}+ 
BEQ @2 
: Function 1sDislogEven{theEvent: EventRecord): 
;: Bokan 
CLRB  -(SP) 
PEA -evtBlkSize(A6) 
_IsDialogE vent 
TSTB  (SP}+ 
BEQ @2 


; Function DialogSelect(theEvent: Event Record: 
var theDiajog: DialogPr; var Itemhit 
Integer): Boolean: 


CLRB  -(SP) 

PEA -vBIkSize(A6) 
PEA -(evtBkSize+4)(A6) 
PEA -(evtBkSize+6)(A6) 
_DialogSelect 


MOVEL  8{A6),A0 
MOVEL  8{A0),A0 
Vañable d'annulation 
MOVEB  (SP){A0) 
MOVEB  (SP}+12(A6) 
BEQ @1 
@2  UNLK A6 


; retourne le working directory reference number 


; du WODir!D ou 0 si erreur 
GetWDRefNum 
LINK A6,#-ioHFOEISiz 
CLR 14(A6) 
LEA -:oHFQEiSiz(A6),A0 
CIRE  ioFifeName{AO) 
MOVE 12(A6)ioVRefNum(A0) 
CLRL ioWDProclD(AC) 
MOVEL  8{A6)ioWDDirID(A0) 
_OpenWD 
BNE @i 
MOVE  ioVRe!Num(A0),14(A6) 
@1  UNLK A6 
MOVEL  (SP)+,A0 
ADDA  #6,SP 
JMP (A0) 
: _GetFinfo 


; Function GetF{nfo(fileName: Str255; VRelNum: 
; Integer; Var drinfo:Finfo): OSErr; 

; Récupêre les infos du finder pour le fichier 

; donné, sur le volume donné 


GetFinfo 
LINK A6,#-ioF QEISize 
LEA -ioFQEISize(A6),A0 
MOVEL  14(A6)oFileName(A0) 
MOVE  12(A6)ioVRefNum{AO) 
CER ioFileType(A0) 
CLR ioFDirlndex(A0) 
_GetFileino 
MOVE  Do,18{A6) 


; Procédure BlockMove(sourcePtr, destPrr: Ptr; 
byteCount: Size); 
LEA ioFlUsrWds{A0),A0 
MOVEL  8{A6),A1 
MOVEQ  #16,D0 


_BlockMove 
UNLK A6 
MOVEL (SP)+,A0 
ADDA  #10,SP 
JMP (A0) 

:  SetVol 


; Function SetVol{volName: StringPtr; vRefNum: 
Integer): OSErr; 
: met fe volume ou working directory par défaut 


SetVol 
LINK A6,#-ioQEiSize 
LEA -i00ESize(A6), AO 
MOVEL  10(A6)joVNPtr{A0) 
MOVE 8(A6),joVRefNum(A0) 
_SetVol 
MOVE D0,14(A6) 
UNLK A6 
MOVEL (SP)+,A0 
ADDA  #6,SP 
JMP (A0) 


ApplNameHdle DS 4 
AppiTypesHdle DS 4 
ApplVRefNum DS 2 

2 
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; H Attention : Fonction interne à la Fonction 

: GetAppiVRefNum donc pointeur sur variable : Function GeWDRefNum (VRefNum: Integer: AE DS à. ES 

; locale en plus Sur la pêe WODrriD: Longint}: Integer; 2 
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e fichier “Basic. 
System” lance étemel- 
lement l'exécution du 
fichier Startup s'il le 
E trouve dans le 
catalogue principal du volume, ce 
Startup pouvant être aussi bien 
Basic que binaire. II est simple, 
sinon pratique, de modifier ce 
nom à l'aide d'un éditeur type 
Copy ][+, Bag of Tricks, mais la 
manipulation reste inconfortable. 


NewBoot est une modification de 
Basic.System qui permet de 
changer ce nom à volonté : il 
suffit de presser la barre d'espa- 
cement lors du boot. Un écran 
apparaît alors, donnant le nom du 
volume de boot, le nom du 
programme lancé par Basic. 
System et vous proposant 
d'entrer un autre chemin d'accès 
pour le démarrage. 


A ce niveau, entrer simplement le 
nom d'un programme ou bien un 
chemin d'accès complet. Il est 
possible d'indiquer : 
/DISK/DIR1/DIR2/DIR3/DIR4/ 
PROGRAMME 

ainsi le fichier ‘Programme’ situé 
au Sème niveau du volume sera 
exécuté au démarrage (le préfixe 
sera par la même occasion établi 
au niveau du programme lancé). 


Le programme lancé automa- 
tiquement par Basic.System peut 
également se trouver sur un autre 
volume : lorsque pour quelques 
temps, il est prévu d'utiliser 
fréquemment AppleWorks il 
devient aisé de préciser 
/U3. 5/ APPLEWORKS/APLWORKS. 
SYSTEM 


Utilisation 


Saisir et sauvegarder BOOT et 
PATCH, mettre ces deux fichiers 
sur le volume comportant le 
Basic.System à modifier, faire : 

- PATCH 

et attendre un instant. 
Maintenant pour changer de 
startup, la barre d'espace 
remplace Copy +... 


G 
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Patrick Guyou 


Naw BOOT 


<C) 1987 Patrick Guyou 


Préfixe:/SPDSK 


Boot actuel: STARTUP 


Entrez le chemin du nouveau boot. 


Récapitulation 48D0:20 F4 48 A9 21 8D 62 4F 
BOOT 48D8:20 56 4F 20 58 FC AO OD 


48E0:20 E3 49 20 36 4B C9 8D 
48E8:D0 F9 AD 8B CO AD 8B CO 


Après avoir saisi cette récapitulation 48F0:4C 03 BF 00 20 00 BF C8 
sous moniteur, vous la sauvegarderez par : 48F8:19 49 BO 1A AD 1E 49 8D 
BSAVE BOOT, A$4800, LI984 4900:20 49 8D 28 49 20 00 EF 

4908:CB 1F 49 BO 09 20 O0 BF 
4800:AD 00 CO C9 AO FO 35 20 4910:CC 27 49 BO 01 60 4C AO 
4808:58 FC AD 07 20 C9 2F FO 4918:4B 03 29 49 00 08 00 04 
4810:03 4C 47 20 AE 06 20 BD 4920:00 00 20 58 2F 00 00 01 
4818:07 20 C9 2F FO 04 CA 4C 4928:00 OC 42 41 53 49 43 2E 
4820:17 48 AO 00 CA BD 07 20 4930:53 59 53 54 45 4D AS 43 
4828:9D 40 4B C8 EO 00 FO 03 4938:8D 56 49 20 00 BF C6 44 
4830:4C 24 48 8C 3F 4B 20 36 4940:49 BO 04 60 01 3F 4B AD 
4838:49 4C 47 20 A9 07 8D F2 4948:56 49 8D 61 49 20 57 49 
4840:03 A9 48 8D F3 03 49 A5 4950:A2 FF SA 4C 47 20 00 20 
4848:8D F4 03 A9 00 A2 FF SA 4958:00 BF C5 60 49 BO B7 60 
4850:2C 10 CO 20 00 C3 AO 00 4960:02 00 00 08 20 00 BF C7 
4858:20 34 4A AC 00 20 E3 49 4968:70 49 BO DB 20 73 49 60 
4860:A0 01 20 34 4A 20 64 49 4970:01 92 49 48 A9 OA 20 5B 
4868:A0 01 20 E3 49 48 A9 OC 9978:FB A9 O0E 85 24 68 A2 00 
4870:20 5B FB A9 12 85 24 68 4980:BD 93 49 49 80 20 ED FD 
4878:AE 06 20 AQ 00 B9 07 20 4988:E8 EC 92 49 FO 03 4C 80 
4880:49 80 20 ED FD C8 CA FO 4990:49 60 00 00 00 00 00 00 
4888:03 4C 7D 48 AO 02 20 E3 4998:00 00 00 00 00 00 00 00 
4890:49 48 A9 10 8D 89 4A A9 49A0:00 00 00 00 00 00 00 00 
4898:0D 8D 8A 4A A9 35 8D 88 49A8:00 00 00 00 00 00 00 00 
48A0:4A 20 8B 4A 68 AD 3F 4B 49B0:00 00 00 00 00 00 00 00 
48A8:8D 06 20 A2 00 BD 40 4B 49B8:00 00 00 00 00 00 00 00 
48B0:38 E9 80 9D 07 20 E8 EC 49C0:00 00 00 00 00 00 00 00 
48B8:06 20 FO 03 4C AD 48 A9 49C8:00 00 00 00 00 00 00 00 
48C0:80 9D 07 20 E8 9D 07 20 49D0:00 00 00 00 00 00 00 00 
48C8:A9 E3 8D 62 4F 20 56 4F 49D8:00 00 00 00 00 00 00 00 
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BATIR ELES EFFETS ECSNES CONTES 


LEE EUR LEE 


EDEN Ez 


za 


EME ZErÉ 


t 
1e 
+ 











49E0:00 
49E8:B9 
49F0:06 
49F8:24 
4A00:FO0 
4A08:FD 
4A10:EF 
4A18:A8 
4A20:E1 
4A28:4E 
4A30:4D 
4A38:03 
4A40:06 
4A48:85 
4A50:FB 
4A58:F0 
4A60:06 
4A68:11 
4A70:F0 
4A78:5A 
4A80:FF 
4A88:00 
4A90:84 
4A98:A9 
4AA0:FO0 
4AA8:AC 
4AB0:20 
4AB8:FD 
4AC0O:C9 
4AC8:C9 
4AD0:C9 
4AD8:E0 
4AE0:4B 
4AE8:C8 
4AF0:4B 
4AF8:4A 
4B00:0D 
4B08:ED 
4B10:03 
4B18:A9 
4B20:48 
4B28:4B 
4B30:CE 
4B38:C0 
4B40:00 
4B48:00 
4B50:00 
4B58:00 
4B60:00 
4B68:00 
4B70:00 
4B78:00 
4B80:00 
4B88:00 
4B90:00 
4B98:00 
4BA0:18 
4BA8:0B 
4BBO :4C 
4BB8:05 
4BCO:A0 
4BC8:05 
4BD0:D0 
4BD8:48 
4BE0:C9 


B9 


c9 


A0 


DO 
4E 


4BE8:4C 
4BFO:0B 
4BF8:20 
4C00:Fr0 
4C08:4C 
4C10:20 


AO 
20 
23 
06 
25 
23 


OC 
E3 
4B 
20 
4C 
4B 


48 20 E3 
49 68 20 DA FD 
20 36 4B C9 9B 
23 4B 4C 
48 20 E3 
AO OC 20 


49 A0 


FB 
49 
E3 


4B 
68 
49 





Tours Micro-Club.…. 


90, avenue Maginot-37100 
Tours, édite un bulletin bien 
“Leopiiat 


sympathique 


pommier international”. Il 
s’agit, selon ses auteurs, du 
premier journal édité en DOS 
3.3 et dont les pages sont 
numérotées en hexadécimal..… | 


N\ 








/ 





1C18:20 
4C20:23 
4C28:94 
4C30:B0 
1C38:00 
4C40:A0 
4C48:E4 
4C50:AF 
1C58:AE 
4C60:E9 
1C68:EF 
1C70:A0 
4C78:E5 
4C80:A0 
1C88:E5 
1C90:FS 
4C98:AE 
4CA0:19 
4CA8:F4 
4CBO0:E9 
4CB8:AE 
4CCO0:14 
4CC8:A0 
4CD0:ED 
4CD8:EE 
4CE0:00 
1CE8 : A0 
4CFO0:A0 
1CF8:AE 
4D00:A0 
4D08:A0 
4D10:F4 
4D18:EC 
4D20:A1 
4D28:A0 
4D30:A0 
4D38:EC 
4D40:A0 
4D48 :A0 
4D50:F2 
4D58:A0 
4D60:F5 


AO 
AO 
34 
A4 
F9 


F4 


AO 


FO 
A9 
(exe 
3C 
1:9 
F5 
D2 
C9 
14 

AO 
AO 
F4 

00 
CE 
E5 
ES 
AO 
AO 
ES 
EE 
A0 
CE 
EF 
E3 
AI 

A0 
E9 
EE 
A0 
AO 
F5 
F4 
AE 
A0 
E9 
EF 
AE 
19 

AO 
AD 
(63 

15) 


4D68:A0 
4D70:01 
4D78:4C 
4D80:4C 
4D88:4C 
4D90:8D 
4D98:8D 
4DA0:8D 
4DA8:8D 
4DB0O:8D 
4DB8:4C 
4DCO:4C 
4DC8:4C 
4DD0 :09 
4DD8 :4C 
4DE0:4C 
4DE8:4C 
4DFO:4C 
4DF8 :4C 
4E00:4C 
4E08:4C 
4E10:4C 
4E18:4C 
4E20:8D 
4E28:8D 
4E30:8D 
4E38:8D 
4E40:8D 
4E48:8D 


4E50:8D 
4E58:8D 
4E60:4C 
4E68:4C 
4E70:4C 
4E78:4C 
4E80:4C 
4E88:4C 
4E90:4C 
4E98:4C 
4EA0:4C 
4EA8 :03 
4EBO:CF 
4EB8:A0 
4ECO:F4 
4EC8:F9 
4ED0:FB 
4ED8:06 
4EEO:F4 
4EE8:CS5 
4EFO:ES5 
4EF8:A0 
4F00:ES 
4FO8:AE 
4F10:F5 
4F18:F2 
4F20:F2 
4F28:E7 
4F30:0C 
4F38:D2 
4F40:EF 
4F48:EE 
4FS50:E2 
4F58:BF 
4F60:29 
4F68:00 


EC 
1B 
qc 
4cC 
4cC 
02 
03 

04 

05 
06 
4C 
4C 
4C 
03 
4C 
q4c 


D4 


F2 
EF 


55 
EE 
A0 
E4 
El 
00 
F2 
AO 
A0 
F2 
16 
ES 
F5 
E3 
EF 
C3 
49 
00 


C3 BE AE 00 
4C 4C 4C 4C 
4C 4C 4C 4C 
gC 4C 4C 4C 
8D 02 1B SA 
8D 03 1B 5A 
8D 04 1B SA 
8D 05 1B 5A 
8D 06 1B SA 
8D 07 1C 4C 
qC 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 00 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4cC 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
8D OA 03 SA 
8D O0B 03 SA 
8D OC 03 SA 
8D OD 03 SA 
8D OE 03 SA 
8D OF 03 SA 
8D 10 03 SA 
8D 11 03 SA 
8D 12 04 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
gC 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 4C 
4C 4C 4C 00 
RYNAONC2 CF 
1D A8 C3 A9 
B7 AO DO E1 
EB AO C7 F5 
OA 06 DO F2 
ES BA 00 OC 
F4 AO El E3 
BA 00 0E 06 
E5: FA, A0! EC 
ERNEDLFOUEE 
EESEENESNEG 
E2 EF EF F4 
BC D2 E5 F4 
AONDONERNES 
E9 F4 F4 ES5 
A0 FO F2 EF 
ED ES AE 8D 
F4 F2 EC AD 
F4 BE AO DO 
FONESVECVEl 
AO EC ES A0 
AE 00 20 00 
BO OF 60 07 
00 20 00 00 
00 4C A0 4B 
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Sur la disquette Apple // 


| en ormat DOS, le versoen Pro DOS. La disquette 800Koest 
formatée ProDOS : ‘Veiller à être sous le bon système 
| d'exploitation avant d'exécuter un programme. 

Pour pouvoir démarrer directement avec la disquette 
formatée en Pro DOS, y copier ProDOS (les es de 





HGR.MNTL ProDOS ou DOS 3.3 (RUN) 
DENSITE Utilitaire pour HGR.MNTL 
DENSITE.S Source Merlin-Pro 
COMPACTEUR ProDOS ou DOS 3.3 (RUN) 
STARTUP.D WPL pour AppleWriter ProDOS 
VARIDATE.D WPL 

INIDATE.D WPL 

INIDATE.D WPL 

DATE TXT contenant la date 
STARTUP.N WPL pour AppleWriter ProDOS 
VARIDATEN WPL 

INIDATE.N WPL 

CHOIX WPL 

NUMERO WPL 

GLOSSAIRE WPL 

COMMANDE WPL 

RELANCE WPL 

FICHRELANCE TXT exemple 
FICHCOMMANDE TXT exemple 

HEURE WPL pour AppleWriter ProDOS 
Programme ProDOS 


10 
20 
30 
40 
50 
60 
70 
80 
90 


‘Patch’ 


Ce patch fonctionne sur 
Basic.System version 1.1. 
Pour connaître le numéro 
de votre version, renommez 
votre programme de startup 
et bootez. 


REM Æ te te ne ne te te te of 6 te fe te ee te fe ot ct te te tt te 
REM #* * 
REM * Programma da Patch * 
REM #* * 
REM #* BASIC.SYSTEM * 
REM #* * 
REM 6 te nf ot ve fe of me fe te of fe ae 6 ot ve fe of ne of ot te ot te 
REM 
D$ = CHR$ (4) 


100 PRINT D$"BLOAD BASIC.SYSTEM, T 


La revue Poms est accom ée opti nnellement d'une 
disquette 5,25 140Koou3,5 800X0. En 140%K0, Le rectoe t 


GS Lont sous Le n m P8)et Basic System. téléphone 


en cas de difficultés : (1)39 51 24 43. 


PATCH ProDOS, programme à RUNer 
BOOT.SOURCE Source ProCODE 

BOOT patch 

QD.BIN Objet à exécuter depuis ProDOS 16 
QD.SAMPLE programme exemple (RUN ou-) 
QD.MAIN Source Apw 

QD.SRCE Source Apw 

ONLINE.EXE Objet à BRUNer sous ProDOS 
ONLINE.S Source Mertin-Pro 

CAT & MOUSE Objet à BRUNer sous DOS 3.3 
SOURCELISA Source Lisa 

COMMANDE.CLV Bon de commande CalvaCom 
Source BOOT.SOURCE 

Assembleur ProCODE 

: Ney Boot “ 

- tC) 1987 Patrick Guyou 


Version 1.0 





Apple //e+ - Apple //c - Apple //gs 


Lé 65c0z - Assembieur procode 


Programme de patch à Basic.sÿstem permettant de changer 
le nor du programme 'booté' au démarrage du disque. 
Le nouvesu boot peut s'effectuer, non seulement 4 différents 
hiveoux du catalogue, mais aussi sur un autre disque. 
. Une disguette 5" 1/4 Pourra booter le programme se trouvant au 
Sème niveau d'un disque dur. 
* /DISQUE/DIRI/D0IR2/DIR3/DIR4/DIR5/PROGRAMME ", est correct 
* Attention: 


r/DISQUE/0IR/" seule, entrainerait un “FILE TYPE M 
ISMATCH® 
. 1ors du boot, mis ie Prefixe serait établi sur "/DISQUE/DIR/". 


La syntexe : 





SYS,A$2000" TRANS EQU 506 “Pour adressage indirect page 0 
ee ee TABV EQU S$F25B ‘Tabulation verticai 
110 PRINT D$"BLOAD BOOT A Lo a Loeb - teen le 
120 POKE 8193,0: POKE 8194, 72 eBM.S0 EQU 543 : sict/drive actif 
_ À ©0180 EQU $Cc300 ‘passagä én 80 Col. 
130 PRINT D$ UNLOCK BASIC.SYSTEM ALTOFF SOU $C005 * commutateurs ceractéres 
140 PRINT D$"BSAVE BASIC.SYSTEM, T ALTSST Fe $co0r d # 
ATFL U  $C01E 
SYs,A$2000, L12150" BONE EQU SFCS58 ‘efface écran 
150 PRINT DS$S"LOCK BASIC. SYSTEM" COÛT EQU S$SFDED ‘affiche caractére accumlateur 
COUT EQU $FDr0 
160 HOME KBD EQU $c000 stouche appuyée 
ee STROBE EQU $C010 mi 4 zé lavi 
170 PRINT "OK, C'EST FAIT... Le A0 CNE Vis 
HP &QoUu $co30 “Stimuiation haut-parleur 











(E] 


BASIC.R FQU $05D0 retour basic INY 





PRBYTE 
LEVEL 
ICHBINE 
CHAINE 


* 


* syntaxe: INP Tabul. verticale, Tabul. Horizont, 


INP 


* 


ED EE : 


PATCH 


DEBUT2 


EXT.PREF 


$1 


STORE 


2QU SFDDA affiche code hexa accumulateur 
SOU $BF94 # 

EQU $2006 ;adresse "basic.system' 

Eeu $2007 ‘ LA # 

EQU $2047 # \g \d 

EQU $03F2 vecteur ‘reset 

MACROS 

Do 0 Le code n'est pas généré 


Macro tabulation 


Syntaxe : TBL Verticale, Horizontale 


MAC Nom de la macro 

PHA ‘Sauvegarde accuæulateur 
10A £.0 ler parametre 

JSR TABV stabulation verticale 
LDA £.i ;:2me parametre 

STA TABA stabulation horizontale 
PLA “restituer accumulateurs‘ 
EOM #tfin de aacro 


MAC :Nom de la macro 
PHA 
104 £.0 ‘ler barametre 


STA VTAB stébulation verticale 


LDA #£.1 28e parametre 

STA AHFAB stabulation horizontale 

IDA £.7 :3me paramètre 

STA ENT ‘fixer longueur entrée autorisée 
JSR INPUT “saut au sous-programneé INPÜT 
PLA 

EOM ‘fin de macro 


Macro afficher texte 


numero de message 


syntaxe: AFT 





MAC shonm de la mecro 

LDY £.0 ‘parametre 

JSR AFFICH ssaut au soùs-proÿranme gffichge texte 
EOM ‘fin de æcro 


Macro afficher caractéres souris 


syntaxe: AFM numero de message 

MAC ‘nom de la macro 

LDY £.0 “päraretre 

JSR MOUSÉ.AFF ,;saut au SP affichage caract. souris 
£OM ‘fin de macro 

FIN le code est de nouveau généré 

ORG $4800 


PATCH ORG $4800 


Eu * 
LDA K5D 

CP £$A0 Barre d'espace appuyée.,.? 
BEQ UÉBSUTI soul 

EQU * 

JSR HOME 

LDA CHAIRE 

CMP £$2F ‘Est-ce un préflxe...? 

BE% EXT.PREEF ‘Oui 

JMP BOOT ‘Non on continue 

EQU * 


LOX  LICHAINE 
LDA CHAINE. X 
CMP  £$2F ‘Fin du préfixe 
BEQ STORE seul 


Extraire préfixe 


Longueur entrée 


$2 


DEBUTI 


#1 


52 


63 


$5 


SAVE 


ER 


x 1$00 
BÉQ S$2 

JMP 51 

STY IGENT 
JSR SPREFIX 
JMP BOOT 


LOA £<DSBUT2Z 
STA RESET 
LDA £>DEBUTZ 
STA RESETH#I 
EOR 1$A5 

STA RESET+2 
LDA £$00 

LDX £$FF 


BIT STROBE 
JSR COL80 
AFM © 

AT © 

&EM 1 

JSR GPREFIX 
AET 1 

TBL 12,18 
LDX LCRAINE 
EDY £$00 

LDA CHAINE.Y 
ECR £$80 

JSR COUT 


BEC S$2 

JM 51 

AFT 2 

INP 16,13,53 
LDA LGENT 
STA LCHAÏNE 
LDX E£$00 

LDA BUSFER,X 


sec £$80 
STA CHAÏNE.X 


CPX LCHAINE 
80 $4 

JMP  $3 

LoA £$00 

STA CHAINE, X 


STA CHAINE, X 
LOA £$E3 

STA ACCES 
JSR SETFILE 
JSR SAVE 

LOA £$21 

STA ACCES 


JSR SETPILE 


MODULE SAVE 


HEX CH 
DA RRITE.T2 
BCS ER2 


‘Etablir préfixe de boct 
:On redonne 13 main à basic.sÿstem 


:Controier la touche <reset> 


sInitialisation pile 


sTnitlai{sation clavier 


Affichage caractéres souris <1> 
sAffichage textes 


spréfixe courant 


«Tabulation pour affichage du nom du boot 
“Récupérer la iongueur 


Nom du boot... 
Affichage normal 
sAffichage 


«C'est finl.-.? 

“Non... 

sAffichage texte 

Entrée du nouveau boot 
‘récupérer la longueur de l'entrée 
“On sauvegarde cette lonçueur 


:nam du nouveau boot... 


;...remis à sà place 


stout est bien là...? 
oui 
;non 


:Déprotéger 
;$1 protection écriture 


;Sauver nouvelle version 


sprotection 


‘Vous partez déjä...? 
‘Qui, à 1a prochaine... 
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REF.1 


TS 


À 


£Q0 
HEX 
Ds 


WRITE.T2 QD 


REF1.1 


* 
* 


CLOSE.T2 
R&SF2.1 


SPREFAR 


PR.ER 


SAV,S» 


ONLINE 


GPREPIX 


VPREFIX 


$1 


HEX 
HEX 


STR 


Le *TABLE OPEN 


ne TABLE WRITE 


01 :TABLE CLOSE 


*BASIC.SYSTEM';Nom du fichier 


MODULE PREFIXE 





SET PRSPIX 


EQU 
TBL 
LOx 
LDA 
50R 
VSR 


. 
eŒM.50 #Identifier drive actif 
SAv,.50 ssauvé...! 


PR.ER ‘Le préfixe est inconnu 


oi 

BUF FER-2 

LA 

SAV.5D ‘Récupérer drive origine 


UNIT 
ONLINE ‘Retour sur drive origine 
£$FF initiaiiser pile 


BOOT :0n redonne la main à basic.system 
00 


d +Gestion du préfixe 


91 
LPRESUF 


LA 

10,14 

£$00 

PREBUF, X affichage Préfixe 
£$30 scaractére normal 
COUT 


LPREBUF ‘Affiché en totalité ? 
$2 “Qui... 
$1 ‘Nan.,, 
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$1 


$2 


$4 


$5 


$s 
TABLES 


TABLEH 


ss s 


MOUSE.AFF EQU * 


Se 


$1 


$2 


$3 


HEX 
HEX 
HEX 
REX 
HEXx 
HEX 


AFFICHAGE CARACTERES SOURIS 


£LOA 


LDY 


TABULATION 


(TRANS), Y :Tabulation verticale 
TAEV 


LDA 








00 

0000000000000000000000%000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000008000000000000 
00060000000900000080000000000080 








TABLES,Y Adresse du menu (b} 


TRANS 
TABLE ,Y Adresse du menu (h} 
TRANS+1 
£$00 
(TRANS) ,Y 
TABV #tabulation verticale 
(TRANS ,Y 
TABH stâbulation horizontaie 
scaracteree suivant 
55 :255 caracteres affichés 
(TRANS },Y 
£$80 “Fin de ligne ? 
$4 “Si oui on saute ! 
£$00 
$6 
cour 
52 
On saute un caractere (8D) 
55 
$1 
TRANS+#1I sincrementation de AH "TRANS" 
53 


Retour au depart 


<ECR, T1, <SCR.T2, ŒÆCR. T3, <MESERO, <MESERI, CMESER2, <MESER 
3, ÉSER4 

<MESERS, <MESERG6, CMESER?, <MESERB, CMESER9, <MBYE 

LA 

>ECR.TI,>SCR.T2, >ECR, TJ, >>MESERO, >MSSERI, >MESER2, >MESER 
J>HESER 4 

>MESERS,>MESER6, >MESER ?, MES ERE, MESERI, >MBYE 


ALTFL ‘Commutateur 4 <1>? 

$0 ;ss{ oui on saute une instruction 
ALTSET Commutateur ait. à <1> 

NMTAB, Y sPointeur Page 0 (Poids faible) 
TRANS 

MTAH, Y :Pointeur page 0 (Poids fort) 
TRANS +1 

£$32 sInverse 

$32 

£$00 


55 

£$18 +MouseTEXTon 

CUT 

(TRANS }J,Y ,Caracters a afficher 
£$80 ‘Fin de 1igne ? 

$4 ; 

£$00 :Fin de texte ? 

$6E ‘ 

couri ‘Affichage... 

$2 

















$4 INY SORTIE JWP  DEBUT1 
BEC $5 #Si >= 255 on branche à $5 » 
JM  $1 = 
$5 IWC TRANS? ‘Incrementation octet poids fort a TOUITTT...! 
JM S3 af 
56 ZA £$518 :MouseTEXTcff : 
JSR COUTI DUREE DEB $FF 
LDA £$SFF :Normal HAUTEUR OFB $FE 
STA $3? BIP LDX DUREE 
RTS $1 LDY HAUTEUR 
MTAB EQU * BIT HP 
DEB <ECR,SI, <ECR.S2 $2 DEY 
MTAA ECUIRE BNE  $2 
DEFB >ECR.SI, >ECR.S2 DEX 
DEC HAUTEUR 
La BNE 51 
” MODULES INPUT ARTS 
RE ———— BLOQ EQU * ‘Attente clavier 
+ $1 LDA KBO 
ENT REX 00 ‘Longueur entrée BEL $1 
VTAB REX 00 BIT STROBE 
HTAB H£EX 00 RTS 
INPUT EQOU * LGENT REX 00 
LDX £$09 BSUFFER EQU * 
LDY HTAB HEX  00000000000000000000000000000000 
STY TABH -Tab.heriz. H£EX  000000000000600000000000C€0000000 
LDA VTAB :Recup. tak. vert. HEX  00000000000000000000000000000000 
JSR TABV +Tab, vert. REX  00000000000000000000000000000000 
SENCORÉ LDA ÉÊSAE ñEX  00000000000000000000000000000900 
JSR COUT HEX  00000000000000000000000000000000 
CPX ENT : 
850 SFIN * 
IHX n GESTION ERREURS 
JUMP  $ENCORE ts 
SFIN LOX  É$00 * 
LDY HTAB ERREUR EQU 
STY TABA :Tab.horiz. CLC 
Û LDA  VTAB :Recup. tab. vert. CMP £$27 *MESERO 
JSR TABV :Tab. vert. ENE $1 
1 EDA CURS LDY £503 
f JSR COUT JMP GEST 
BOUCLE JSR BL $1 CMP £$2B :MESERI 
CMP £5$8» :Touche "RETURN" BNE $2 
BEC FIN LDY £S04 
CNP £$FF :Touche "DELETE" JMP GEST 
BEQ DELETE $2 c#æ £$40 :MESER2 
CMP £$9HA :Touche "ESCAPE" BMS 53 
L BEO SORTIE LOY £$05 
CMP £$88 ;Touche “<—" JMP  GSST 
u BE® DELETE $3 CMP £$44 MESER3 
ë CP £$AI ;Caract.<espace BNE 54 
4 BCC  NOCHAR LDY £$06 
be ch £S$SFE ;Carect.>que FE JMP GEST 
BCS  NOCHAR $4 CMP E£$45 :MESER4 
Le CPX ENT BNE $5 
BCS BOUCLE ELDY £$07 
STY TABH JMP GEST 
JSR COUT ‘On affiche 55 CMP £$46 :MESERS 
Lu STA BUFFER.X ;:On stoke À dans le buffer BNE 56 
E} LDA CURS On reeffiche le curseur ILOY £508 
4 JSR COUT sicl.. JMP  GSST 
El INX $e CMP £$48 ; MESERE 
eu INY BNE S$7 
E JP BOUCLE LDY £$0s 
NOCHAR EQU * VJN® GEST 
He PAY TAXXX $7 CtP £$4E :MESER7 
Le PHX #00 BNE $8 
bé JSR BIP LOY E£S$OA 
tre PIX JMP GEST 
= PLY $8 LDY £$0C :MESER& 
= JMP BOUCLE PARA :Code erreur 
En DELETE EQU ”* JSR AFFICH 
= CPY HTAB Position 0 pour le curseur? LDY 4$08 
pa B&æ $1 “si oui alors on sort JSR AEFICH 
e DEY ‘On decremerite la tab horiz. PLA 
o2x 1J1SR PRBYTE saffichage code erreur 
= STY TABH Le curseur recule JSR BIP 
La IDA CURS ? $3 JSR BLOQ 
rl JSR ŒUT ? CM  £$9B F] 
= LDA £SAE ;Un point qui efface le curseur BEQ $10 
pre JSR CUT JSR BIP 
5 si JMP BOUCLE Jp $9 
h 510 JMP FERMER 
Eee CURS ASC "" GEST EQU * 
_ BRK a 
Le PIN EQU * JSR AFFICA 
LE CX £$07 PLA 
LE HCC NOCRAR JSR BIP 
té STX LGENT LOY É£$0C 
( STY TASH JSR AFFICH 
le LDA ESAE $1 JSR H180 
12 LR ICE cm £$98 
Je RTS BEQ FERMER 
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MÉSER1 


MESER2Z 


MESER3S 


NESER 


MESER3S 


NESER4 


MESER7 


MESERG 


MESER9 


ECR.S1 


ECR.S2 










CPL ; Horreur d'erreur!!! 


ERREUR : Ch ne s'en lasse pas. 


MESSAGES D'ERREUR 


1419 :3 


ça continue... 


M Erreur d'ENTAEE/SORTIE...! “: $27 


00 
1419 4 


“Disque protégé en écriture...!"; $28 


00 
1419 +5 


e Erreur de syntaxe...! “; $40 


00 
1419 ‘6 


“ Catalogues inconnu...! "; $44 


0 
1419 AÈTÉ 


“Nom de volume inconnu...! "; $45 


00 
1419 :8 


4 Fichier inconnu...! "; $46 


09 
1419 +9 


“La disquette est ploine...! ": $43 


00 
1419 :04A 


#7 fichies verrouillé...! ": S4E 


09 

14193 : 08 

e Erreur N° $* 
20 

1620 +0 
“Appuyez sur <ESC>,*" 
00 


0118 
"&LLLLLLLLLLLLLLLELLLELLEL * 

82 : 

02318 
‘gt 
82 
0234 


8b : 


œ 
o 


æ 
LC] 


œ 
E] 


œe 
o 


82 

ü71C 
"LLLLLLLLLLLLLLLLLLLLLELL* 

00 


0903 


*2LLLLCLLLLLLELELLLLLLLLLILELLLLEELLEELILLLLLLLELELLLEL 


LLLLLLLELLLLLLLLLLLE * 


ECR-TI 


ECA,T2 


ECR,T3 


MBYË 


TABLI 


ACCES 


80 
1102 
ge 
80 
114C 


1 

5 

1204 

“LLLLLLLELLLLLELILLLLLELLLLELLLELLLELLLLLLELLLLLLELILLL 
£LLILLILLLLLLLLILLELL 

20 

, 

0324 

“New BOOT” 

8D 

03 1D 

NfC! 1987 Patrick Guyou“ 

D 

0A 06 

"préfixe:" 

00 

°. 

2c06 

"8oot actuel:" 

00 

. 

2006 

“Entrez de chemin du nouveau boot." 

00 

GA16 

“<Beturn> Pour quitter le programme." 

80 

ocié 

“<Ctri-Reset> Pour relancer ie boot." 

20 


SET FILE INFO 


£ou 


PATAI 


0020 
000000 
0000 
0000 
ERREUR 





D FN (6 EOPCNINIEUR ON UN DNNENVEZ=SET=RBSRE: 


ETS 


FFT 


ris 


IRESTFEISAS 


LUE L'EUE 


rime! 








uperMacroWorks est 
un utilitaire destiné 
aux utilisateurs 
d'AppleWorks 1.4, 
leur procurant une 
nouvelle dimension 
de travail: les 
macro-commandes. Il s'agit 
de permettre l'exécution 
automatique de séquences de 
commandes par la pression 
d'une seule touche : les 
fervents de WPL apprécie- 
ront de retrouver ce qu'ils 
avaient douloureusement 
perdu en abandonnant 
AppleWriter. Notons en 
préambules que — comme 
toujours dans Pom’s — les 
impressions (subjectives ?) 
données ici sont issues de 
l'usage du programme et 
non de celui des 
communiqués de presse. 


SuperMacroWorks est un 
programme des célèbres Beagle 
Brothers. Il est fort heureusement 
complété par un mode d'emploi 
traduit par D. Geystor et 
disponible séparément. 


Super MacroWorks ne se conçoit 
d'ailleurs que par l'ensemble 
programme, mode d'emploi 
français et disquette “bonus” 
(macros directement éditables 
pour en analyser le 
fonctionnement et éventuellement 
les modifier). 


La mise en œuvre, sans être 
délicate, mérite attention : le 
fichier système de démarrage ne 
sera plus APLWORKS.SYSTEM 


mais SUPER.SYSTEM, le 
bien-nommé. 


La souris 


À l'usage, et peut-être même 
avant d'apprécier les macros- 
commandes, on est séduit par 
l'usage de la souris : cette facette 
justifie à elle seule l'achat ! La 
souris perinet le choix dans les 
menus ‘à barres’, permet le 
déplacement dans les textes et 
autres feuilles de calcul, le confort 
est insoupçonnable. Les menus 
‘horizontaux’ du type : 

Voulez-vous vraiment faire cela ? Oui Non 


sont également gérés par la 
souris... 

Luxe supplémentaire, le 
défilement des textes ou de la 
feuille de calcul peut être continu 
par l'action sur le bouton de la 
souris. 

Petit détail — pratique lorsqu'on 
assimile le réflexe —, en traitement 
de textes, le curseur souris se 
déplace comme à l'aide des 
flèches et non comme sur le 
Macintosh. Au bord droit, si la 
souris est déplacée à droite, le 
curseur va au premier caractère de 
la ligne suivante. 


Macro-commandes 


Pour le lecteur qui n'a jamais 
goûté au glossaire et au WPL 
d'AppleWriter, prenons 
l'exemple de la justification d'un 
texte au centre. Avec 
AppleWorks, il faut faire C0 puis 
CN puis Return puis Esc. Grâce à 
SuperMacroWorks, la ‘macro’ C 
est décrite ainsi : 
C'<awp><oa-O>CN<rtn><esc>! 
Le langage utilisé est simple : 





Damien Nould 


G début de macro, on utilise C 
awp macro active exclusive- 

ment en traitement de textes 
oa-0 simule pomme ouverte O 
cv simule la pression de CN 
rtn Simule la pression de return 
esc simule la pression de escape 
! fin de la définition 


Maintenant éc suffit à centrer le 
texte. 


Plus subtil, l'inversion de deux 
mots de part et d'autre du curseur 
qui est exécutée instantanément 
par SW, car définie ainsi : 
W:<awp><oa-left><oa-D>I<oa 
-right><left><rtn><oa-righ 
t><oa-right><rtn><left>! 
Autant de commandes qui seraient 
fastidieuses à taper. 


Il est possible d'utiliser les 
macro-commandes fournies 
directement, d'en ajouter et 
d'enregistrer les ajouts ou au 
contraire de ne concevoir une 
macro que pour une utilisation 
temporaire. Si le mot 
‘programme’ revient souvent 
dans un texte, autant le mettre 
‘sous la pomme” en tapant : 


GWprogramme<CTRL-à> 


Les ajouts se font en direct à tous 
moments ou en différé après 
préparation en traitement de 
textes. 


Selon les usages, il est possible 
de concevoir en plus des macros 
foumies, des macros spécifiques 
réparties éventuellement dans 
plusieurs fichiers. À noter que 
lors de la préparation de macros, 
on peut leur affecter un usage : 

+ général ou; 

+ traitement de textes seulement ; 
+ tableur seulement ; 

+ _ base de données seulement. 
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Pour étendre leur potentiel, les 
macros savent exécuter boucles et 
conditions (est-on bien arrivé au 
‘R’ ? par exemple). 


Un exemple ? 


Parmi les macros mises à la 
disposition de l'utilisateur é' 


affiche la date, mais à 
l'américaine : 
Novembre 2, 1987 


Qu'à cela ne tienne, les macros 
pouvant s'appeler mutuellement, 
il suffit de définir : 
S:<awp><sa-'><left><left>< 
left><left><left><del><sa- 
,><8a-Ww>! 

La date, à la française, s'obtient 
maintenant avec #5, cette macro 
en appelant trois autres : ‘'’, 
‘#,’et ‘éw’. Bien entendu, de 
nombreuses autres combinaisons 
pourraient mener au même 
résultat. 





Renonçant à PostScript et aux polices de caractères 


Une macro est prévue pour 
afficher l'heure (certainement 
pour concurencer le programme 
WPL publié dans ces pages !). 


Partni les nombreuses possibilités 
qui, combinées, forment de 
véritables programmes, on note 
des commandes pour : 


- reculer à l'espace précédent, 

- rechercher la prochaine 
commande d'impression, 

- rechercher le prochain espace, 

- convertir en majuscule ou en 
minuscule, 

- incrémenter ou décrémenter 
des caractères (de quoi 
concevoir une calculette ?}, 

- ‘tracer’ des macros pour les 
contrôler, 

- imprimer la ligne du curseur, 

- utiliser des variables, 

- répéter des macros, 

- attendre la saisie de texte, 

- attendre une seule touche, 

- afficher un message même 
avec des caractères souris... 


intégrées, des PME optent parfois pour l'imprimante 


Laserjet de Hewlett Packard et non pour la 


Laser Writer d'Apple. 


L'Apple // ne doit pas faire de complexes inutiles car il 
commande sans problème cette machine, comme la 


Laser Writer (voir n° 24 de Pom's, PostScript). Les 


codes de commandes indiqués ici ne concernent 


toutefois que ia LaserJet. 


Configuration nécessaire 


sw 


Pour obtenir le résultat présenté sur les exemples de la 
page 64, il vous faut les éléments suivants : 


° Apple/e; 
Caite Super Série Apple ; 


Imprimante LaserJet ; 


Câble série (analogue à celui de l'ImageWriter) ; 


° 
Cartouche de caractères 92286C International off ll [] (| f] "] [ [] 
(pour disposer des caractères accentués) ; 


sw2 
n 


Comme avec WPL, Super Macro- 
Works donne un noyau 
d'instructions à enrichir par 
compilation selon les besoins 
(cela fait penser au Forth) : toutes 
les commandes ne sont pas 
prévus mais comme les macros 
peuvent s'appeler mutuellement. 


Beagle Bros Inc. 

3990 Old Town ave., Suite 102C 
San Diego, 

CA 92110 USA 

Programme : environ $50 + 
transport (carte de crédit) 


Dimitri Geystor 

Lochenaz 

74350 Cruzeilles 

Tél : 50 44 21 70 

Mode d'emploi français, disquette 
‘bonus’ : 65,00 F . 


Bruno Ribard 


+ AppleWorks 1.4 


La carte SSC 


La carte Super Série Apple doit être configurée 
comme pour l'ImageWriter : 


modem 


terminal 
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Paramètres d'AppleWorks 


Suivre le chemin traditionnel depuis le menu principal 
pour ajouter une imprimante : 

Option Autres activités, puis Spécifier les données 
Imprimante(s), puis Ajouter Imprimante puis Mon 
Imprimante. 


Indiquer alors le nom que vous lui réservez, dans le 
cas présent : ‘LaserJet+’. 


Sélectionner les possibilités suivantes : 
Saut de ligne après CR: oui 

Accepte saut de page: oui 

Arrêt en fin de page : non 

Largeur de chariot : 7,7 pouces 
Carte d'interface : CTRL-I 80N 


Donner les codes d'impression suivants : 


6 lignes'pouce : ESC &16D 

8 lignes/pouce : ESC &18D 

Début car. gras : ESC (s3B 

Fin car. gras : ESC (s0B 

Début souligné : ESC &dD 

Fin souligné : ESC &dà 

Début indice inf.: ESC &a+37V 

Fin indice inf, : ESC &a-37V 

Début indicesup. : ESC &a-37V 

Fin indice sup. : ESC &a+37V 

8 carac./pouce : ESC (0F ESC (s0S ESC (s10H 
ESC &k15H 

10 carac/pouce : ESC (OF ESC (s0S ESC (s10H 

11 carac./pouce : ESC (OF ESC (siS ESC (s10H 
ESC &k11H 

12 carac/pouce : ESC (OF ESC (s0S ESC (s10H 
ESC &k10H 

15carac/pouce: ESC (OF ESC (s16.6H ESC &k8H 


17 carac/pouce: ESC (OF ESC (s16.6H 
20 carac./pouce : ESC (OF ESC (516.6H ESC &k6H 


Les densités 8, 10, 12 sont du type Courrier droit et 
autorisent le soulignement, les caractères gras et 
indices. 


La densité 11 est du type Courrier incliné et autorise le 
soulignement et les indices. 


Les densités 15, 17, 20 sont du type L'ne Printer droit 
et autorisent le soulignement et les indices. 


Remarques 


La configuration présenté ici n'est pas critique : un 
Apple //c (ou tout ordinateur avec sortie série), 
AppleWriter et une Laser Writer peuvent fort bien 


communiquer. 
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Bernard Toméno 


ans le numéro 30 
de Pom's, l'article 
sur Multiscribe 
v 2.0 faisait al- 
lusion à une 
prochaine version 
spécifique du ITGs. 
C'est fait ! 





Styleware Inc. vient de sortir 
Multiscribe GS 2.0 (à $99.95 si vous 
commandez directement : 5250 
Gulfton Suite E, Houston Texas 
77081, U.S.A.), tandis qu'au même 
moment Version-Soft nous crédite de 
GSWrite 2.0 (gratuit avec l'achat d'un 
IIGS). 


Inutile de décrire ces programmes en 
détail : ils n'intéressent que les 
possesseurs d'un GS qui, “par 
définition” ont déjà GSWrite. Or, 
Multiscribe et GSWrite sont très, très, 
semblables : connivence ? Imitation ? 
Peut-être, mais plus probablement 
respect des ‘normes Apple’ par les 
développeurs sur ProDOS 16. 

Ce ne sont toutefois pas des jumeaux 
univitellins, alors penchons nous sur 
les principales différences. 


Ce qui est propre 
à GSWrite 


* écrire en rouge et en noir 
(seulement...) ; 

+ écrire en sur-ligné rouge, vert. ; 

+ écrireen lettres barrées (intérêt ?) ; 

+ _ possibilités de définir et conserver 
plusieurs règles de mise en page 

(espacement des lignes, justifications, 

tabulations) et même de les baptiser 

du nom qu'il vous plaira. Très très 

commode ! : 

* marges et tabulations en 
centimètres et non en pouces (avec 

possibilités de tabulations point par 

point ou bien décimales) ; 

*__ redéfinition possible de la taille des 
caractères (de 6 à 32 et non de 0 à 

32 comme le laisse croire un des 
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menus déroulants), ceci en plus des 

options standards (8 - 9 - 10 - 12 - 16 

- 18); 

*__ option d'annulation de la dernière 
saisie ; 

°* nombreuses possibilités de 
caractères “supplémentaires” par 

Option + autre touche ; on obtient 

une série de lettre-accent grave, 

lettre-tréma, lettres accolées (œ), 

grecques (2, 8, II H), et divers 


symboles. 
Assez curieusement, le manuel est 
muet sur cette remarquable 


possibilité ; il signale en revanche 
l'astuce voyelle précédée de la touche 
tréma ou circonflexe pour obtenir le 
caractère accentué correspondant (on 
peut regretter que les résultats de 
Option + autre touche soient 
‘mnémotechniquement parfois peu 
judicie ux : Option + S donne B, tandis 
qu’ Option +B donne ‘ !). 
* on peut — enfin — charger des 
images dans le texte (et elles y 
restent visibles en permanence) mais 
uniquement si elles sont au format 
GSPaint. On ne peut écrire ni à coté 
ni sur elles ; elles transitent 
obligatoirement par le presse-papier 
qu est de ce fait ‘neutralisé’. 


Ce qu'apporte 
Muitiscribe GS 


+ écrire en couleur, mais pas 
seulement en noir ou rouge 
comme GSWrite : il y a une palette de 
16 couleurs redéfnissables comme 
dans (GSPaint (donc 4096 
possibilités). Ceci étant dit. c'est 
joli à l'écran, mais il est dommage que 
les couleurs des rubans d'imprimantes 
soient encore si tristes et que 
l'impression matricielle soit si lente 
(critique valable pour les deux 
programmes) ; 
* dessiner (mais oui), grâce à un 
mini-éditeur de “shapes” dans le 
style de GSDraw ou de TopDraw : 
diverses figures pleines ou vides 
(rectangle à bords carrés ou arrondis, 
cercles et ovales, lignes) avec 


plusieurs choix pour l'épaisseur du 
trait. Chaque dessin peut être 


indéfiniment agrandi, diminué, 
déplacé, superposé avec d'autres ou 
avec le texte : une belle réalisation ! ; 
* charger des images et les mélanger 
avec le texte et avec les mêmes 
possibilités de manipulations que ci- 
dessus, bien qu'il ne soit pas toujours 
facile de respecter les couleurs de 
l'original qui, en revanche, peut 
provenir de GSPaint, DeluxePaint, 
PaintWork, TopDraw (quelques petites 
astuces à connaître, voir le manuel et 
un document-lettre enregistré sur la 
disquette) ; 
* on peut, bien sûr, voir et imprimer 
ensemble textes et images mais, 
quand on dessine, on perd la vue du 
texte et vice versa ; 
° un peu plus de ‘choix standards’ 
que dans GSWrite pour les tailles 
de caractères, et une sous-option 
pennettant de faire varier la largeur des 
lettres de 1 point-écran ; 
+ 5 options de Style de plus que 
GSWrite (Ombré, Indice et Exposant, 
Majuscules et Minuscules) ; 
+ dernier atout Multiscribe 
econnaît et charge immédiatement 
les fichiers textes d'Apple Works (type 
AWP) ; 
* un regret pour finir : alphabet 
strictement américain : impossible 
d'avoir des é è à... même si — petits 
malins — vous permutez avec les 
polices apparemment francisées de 
GSWrite (compatibles, ce qui permet 
de les mélanger : n'en mettez toutefois 
pas trop... cela finit par ‘déborder’ en 
bas de l'écran). 


Alors... à vous de choisir... ou 
attendre la prochaine version : 2.0 
semble signifier version définitive, ce 
qui ne veut pas dire parfaite (en 
insistant bien on arrive à planter le 
soft américain tout autant que le 
français), et ce qui n'interdit pas 
d'espérer une version 3.0 encore plus 


perfonnante. ä 
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Nouvelles I 


du front Dé 


Les frères Beagle, de San Diego 
(Californie), plus célèbres que les 
frères Marx chez les Applemaniaques 
pour leurs programmes toujours 
indispensables (GPLE, Pronto DOS, 
Beagle Graphics...) et jamais 
protégés, ainsi que pour leur 
inénarrable sens de l'humour, ont 
trouvé un nouveau propriétaire. Le 
couple Bert et Sharon Kersey, 
fondateur de la société, qui en avait 
assez de diriger une entreprise 
(florissante au demeurant) plutôt que 
de programmer, a revendu la société. 
à son principal concurrent. 


Il faut dire que ce “concurrent”, Mark 
Simonser, était aussi un de leurs 
amis, un ancien programmeur de 
Beagle, qui avait fondé la société 
Software Touch pour pouvoir 
publier des programmes également 
excellents, également non protégés, 
mais qui entraient en Concurrence avec 
des produits Beagle. On ne peut nier 
par exemple que Program Writer, 
d'Alan Bird, surpasse et périme 
GPLE. Le même Alan Bird publiant 
d'ailleurs aussitôt après chez Beagle le 
génial Beagle Compiler, premier 
mais définitif compilateur Applesoft 
sous ProDOS... 


La fusion de Beagle et de Software 
Touch ne peut être qu'une bonne 
nouvelle pour notre bon vieux chien, 
puisque Mark Simonsen a su garder et 
faire collaborer ces deux génies de la 
programmation que sont Alan Bird 
(AutoWorks) et Randy Brandt 
(SuperMacroWorks). Les premiers 
fruiis de leur collaboration sont une 
série d'excellents utilitaires pour 
AppleWorks qui, à la différence des 
accessoires de Pinpoint par exemple, 
sont totalement intégrés à 
AppleWorks (voir la rubrique “le 
mange-disques”). 








Jean-Yves Bourdin 


L'orientation de la compagnie vers 
plus de produits pour les “utilisateurs” 
(et moins pour les bricoleurs et 
programmeurs) est donc confirmée. Il 
serait dommage cependant que Beagle 
renonce au Basic 16 bits et aux 
utilitaires ProDOS 16 que nous 
attendons tous. 


Toujours plus 


Il est inaccep- 
table aujour- 
d'hui de lire 
des rapports ou 
des thèses uni- 
quement com- 
posés de ce 
texte sec, 
: même pas pro- 
portionnel, que produisaient les 
machines à écrire de grand maman. 
L'informatique personnelle, c'est la 
publication personnelle, mise en page, 
variée, imagée, et même en couleurs. 
Sur Apple //, c'est Newsroom, 
Certificate Maker, ou le tout 
nouveau SpringBoard Publisher, 
tous de Springboard. Sur GS, c'est 
GSWrite de VersionSoft et 
Graphic Writer de Datapak 
Software, en couleurs et en super 
haute résolution. Pour tous, c'est 
aussi Print Shop de Broderbund. 


Il nous faut donc des images, toujours 
plus d'images. Toutes les disquettes de 
Clip Art pour ces programmes sont 
bonnes, mais il n'y a ni ma photo ni 
ma collection d'estampes érotiques 
malgaches. La solution est connue, 
elle s'appelle numérisation. 
Numériser une image, c'est la réduire à 
un nombre fini de points 
correspondant à la résolution 
graphique de votre machine et 
transcrire ces points en octets qui font 
de très belles “images-machines”, 
images que vous pouvez ensuite 
afficher sur l'écran, travailler avec vos 
utilitaires graphiques et imprimer sur 
votre imprimante. 


Il y a deux façons de numériser : soit à 

partir d'une caméra ou d'une image 

vidéo avec une interface spécifique 

(nous en parlerons un autre jour), 

soit. en retournant votre 

Imagewriter, qui, au lieu de recevoir 

depuis votre port série, va émettre vers 

lui les informations nécessaires à La 
reconstitution des images. Deux 
produits nouveaux permettent 
aujourd'hui aux possesseurs d'une 

Imagewriter de remplacer la tête 

d'écriture de leur imprimante par un 

"scanner" qui lit et transmet les 

images mises dans l'imprimante à la 

place du papier. 

— ThunderScan, de Thunderware 
n'est plus le privilège du Mac. La 
version pour //e, //c ou 1IGS coûte 
219 dollars ; 

— Scannit, de Jed Design, est 
offert en deux versions : De Luxe 
à 249 dollars ou le nouveau 
Scannit 25 à 179 dollars. 


Le mange disques 


À la récente fête de 
l'Apple // à San 
Francisco, ce ne 
sont pas les 
programmes GS qui onteula vedette, 
mais la série des utilitaires 

AppleWorks de Beagle & Software 

Touch. Cette série, appelée 

TimeOut, comprend d'ores et déjà : 

— un Correcteur (anglais) avec un 
dictionnaire de 80 000 mots auquel 
vous pouvez ajouter le vôtre, de 
longueur illimitée : TimeOut 
QuickSpell ; 

— un programme qui permet de 
transformer AppleWorks en un 
mini-MacWrite, d'imprimer les 
fichiers AppleWorks avec des 
fontes graphiques de toutes tailles 
(6 à 127 points) et de tous styles, 
et d'y inclure des dessins : 
TimeOut Superfonts ; 

— un grapheur qui crée des graphiques 
directement à partir des fichiers 
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tableur ou base de données 
d'AppleWorks et les imprime : 
TimeOut Graph; 

— un nouveau programme de macros 
pour AppleWorks qui prend la 
succession de SuperMacroWorks et 
AutoWorks. Aveclui ApplcWorks 
devient un langage complet, un 
interpréteur de macro-commandes : 
TimeOut UltraMacros ; 

— un utilitaire pour imprimer les 
fichiers du tableur qui dépassent la 
largeur de la page en les retoumant 
à 90°, du genre de Sideways : 
TimeOut SideSpead ; 

— un programme qui permet sans 
sortir d'AppleWorks de copier, 
comparer, verrouiller, déver- 
rouiller, effacer tout fichier et de 
faire des copies de disque : 
TimeOut FileMaster ; 

— un ensemble d'accessoires de 
bureau type Pinpoint ou Sidekick, 
permettant d'avoir instantanément 
accès depuis AppleWorks à une 
horloge, un calendrier, un agenda, 
une calculette, un bloc-notes, un 
adresseur d'enveloppes et à 
l'inévitable puzzle : TimeOut 
DeskTools. 


Sous le capot 


La meilleure 
carte accélé- 
rateur pour 
Apple //, et le 
seul accélé- 
rateur pour //c, viennent de sortir. Ce 
n'est d'ailleurs pas une carte, mais une 
puce qui remplace le microprocesseur 
et fait tourner votre machine ([, }{+, 
Ile, fc ou compatible Apple) à 4 
Megaherz, 400% plus vite, Zip 
Chip de Zip Technology n'a pas 
de ‘switches' (réglages au clavier), ne 
demande aucun slot, est garanti à vie 
et ne coûte que 130 dollars. Bientôt la 
version pour GS. 





Si vous avez un nouveau //c (avec la 
souris en slot 7), ou un GS, ou une 
carte d'extension mémoire type Apple 
dans votre ][+ ou votre //e, et que 
vous n'avez pas encore UN MEGA 
(1024 Ko) sur cette carte, vous vous 
privez de beaucoup de plaisirs et de 
possibilités. Toutes ces cartes ne 


Rams parfaitement standard 41256 à 
150 nanosecondes qu'on trouve chez 
n'importe quel marchand de 
composants à 30,00 F pièce 
maximum. Il en faut 8 pour 256Ko, 
24 (mais achetez-en 25 pour la 
sécurité) pour “gonfler” à 1 Méga un 
{Je ou un GS. Le seul effort demandé 
est celui d'ouvrir la machine (éteinte), 
de toucher son alimentation pour se 
débarrasser de l'électricité statique, et 
d'insérer les puces dans les supports 
vides qui les attendent. Pour le GS, 
suivre la documentation remise avec la 
carte d'extension mémoire (attention 
aux “jumpers”). Vous perdez votre 
garantie, et tout cela est à vos risques 
et périls. Mes amis et moi l'avons fait 
quand même. 


Patchworks 


Le patch suivant 
permet aux //c, //e, 
I1GS (mais pas aux 
II+) d'avoir sous 
ProDOS et Basic System 1.1 une 
commande CATALOG qui fait 
automatiquement passer en 80 
colonnes (Puristes, rendez-vous au 
paragraphe suivant..). La commande 
CAT agit comme CATALOG si vous 
êtes en 80 colonnes, mais fonctionne 
comme d'habitude si vous êtes en 40 
colonnes : 
BLOADBASIC.SYSTEM, TSYS,A$2000.J 
CALL-151.4 
3A36 : 20 00 C3 A6 21 CA 8E N 
4323:36 N 42EF:394 
BSAVEBASIC.SYSTEM,TSYS,A$2000.1 
- BASIC, SYSTEM) 
Le caractère ‘’damier” qui termine les 
lignes de traitement de texte dans 
AppleWorks 14 a un aspect rétro. 
Pour le remplacer par le moderne 
symbole 1 des caractères souris : 
BLOAD SEG.M1,TO,A$2100,L$2E00, 
B$4CDA.1 
POKE 16759,205 : POKE 17163, 
205 : POKE 19451,205.1 
UNLOCK SEG.M1i-1 
BSAVE SEC.M1,T0,A$2100,L$2E00, 
B$4CDA.J 


Les premières versions de 
SuperMacroWorks de Randy Brandt 
chez Beagle Bros, programme génial 


Works, avait un léger bug avec la 
version française 1.4 d'AppleWorks : 
la macro G" empêche de conclure une 
suite de codes dans la définition de 
“mon imprimante”. Comme cette 
macro n'est pas redéfinissable, il faut 
la changer dans le programme. Voici 
comment la remplacer par GO _: 

BLOAD 

SUPER.SYSTEM,A$2000, T$FF.J 

POKE 16503, 223.1 

BSAVE SUPER.SYSTEM, T$FF-{ 


Encore une partie 
et j'éteins 


Deux nouveaux jeux marqueront 
l'année 87 sur Apple }X par la 
nouveauté réelle de leur conception et 
le fini de leur réalisation. 


Portail d'Activision met enfin le 
jeu sur ordinateur à hauteur du cinéma 
ou de la littérature par la qualité et la 
quantité des émotions qu'on éprouve à 
y jouer. Rentré sur terre à la fin du 
21ème siècle après un voyage dans les 
étoiles, vous y retrouvez tout... sauf 
les gens, qui ont disparu. Le jeu 
consiste à comprendre ce qui a pu se 
passer. Vous pouvez le faire en 
interrogeant Worldnet, le réseau 
informatique hyper-peiformant de cette 
fin de siècle, qui est encore 
partiellement en ordre de marche. 
Vous n'avez pour l'interroger qu'un 
vieux terminal du 20ème siècle, en 
deux dimensions seulement, muni 
d'une archaïque interface clavier, mais 
qui fonctionne encore (ces Apple // 
étaient vraiment increvables). Si vous 
ne lisez pas l'anglais, apprenez-le en 
jouant à Portal. 


Accolades's Comics de Steve 
Keene et d'Accolade a une ambition 
plus modeste, mais la réalise 
parfaitement : celle d'être le premier 
jeu d'aventures et d'arcade qui soit en 











demandent qu'à être remplies par des de macro-commandes pour Apple- même temps une bande dessinée, un | 
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Comics. Vous pilotez effectivement le 
jeu, feuilletez les pages, jouez à cinq 
jeux d'arcade différents, avec la facilité 
de lecture d'une BD. Si vous ne lisez 
pas l'anglais, vous comprendrez quand 
même Accolade's Comics. 


On peut aussi se divertir avec des jeux 
plus classiques : ainsi, si quelque 
dinosaure de vos amis croit encore 
sincèrement à la fable de la prétendue 
“supériorité” de l'Atari sur le GS, 
montrez lui Thexder de Sierra On 
Line, le jeu d'arcade qui fait fureur au 
Japon, sur votre GS. Et si vous 
préférez les jeux à la française, essayez 
Séduction 1 de Froggy 
Software, jeu de rôles qui vous met 
dans la peau d'un séducteur galactique. 


16 bits 


Ça bouge du côté du 
| GS : Apple USA 
TH ! distribue gratuitement 
outre-Atlantique de 
nouvelles Roms et une nouvelle puce 
vidéo, qui éliminent pas mal de bugs 
de la version actuelle maï's qui semble 
en ajouter : certains disques durs et le 
disque-Ram Speedisk s'en portent mal. 
En fait, Speedisk — par exemple — 
fonctionne avec les nouvelles Roms, 
mais pas avec la version 1.3 de 
ProDOS 16 livrée avec. Il convient 
donc dans ce cas, comme le 
conseillent déjà plusieurs revues 
américaines, de conserver la version 
1.1. Apple distribue également 
gratuitement la dernière version du 
Système (version 2.0), qui occupe 
pratiquement toute une disquette 
808K0. Nouveautés : 
s: ProDOS 16 Version 1.3 (juste- 
ment...) : 
°  ProDOS 8 Version 1.4 (17 Avril 
87) ; 
°  Loader Version 1.2 : 
+  Launcher Version 2.0, 
mais toujours Basic System Version 
1.1. Sont ajoutés le Print Manager 
(enfin un outil pour piloter les 


imprimantes), des outils auxiliaires. 


pour QuickDraw, la correction de 
certains bugs de la version 1.1 du 
système ; les outils sont présents sur 
la disquette sous forme compressée, et 
le Loader a été révisé pour permettre le 
chargement de ces fichiers compressés. 





Tout cela est à demander à votre 
revendeur. 


SoftSwitch de Roger Wagner 
Publishing, est à la fois un 
‘switcher’ et une ‘wildcard’ pour le 
GS. Installé comme un accessoire de 
bureau sous ProDOS 16, il permet de 
quitter une application (8 bits 
seulement), de la sauver en mémoire, 
d'en lancer une autre, de la quitter à 
son tour pour retrouver la précédente 
au point exact où vous en étiez resté, 
sans jamais redémarrer. Vous pouvez 
aussi sauver votre mémoire sur disque 
et retrouver des mois après le point où 
vous en étiez, comme avec une 
wildcard. Vous pouvez passer des 
images d'une application à une autre, 
etc. Il gère trois applications 
simultanément. 


Deux points noirs, cependant, pour ce 
programme : d'abord, les applications 
concernées doivent permettre l'accès au 
tableau de bord, et beaucoup ne le font 
pas, à commencer par le Prodos 1.1.1. 
Ensuite, il est muni d'une protection à 
la fois invisible (les disques sont 
copiables et les copies semblent 
fonctionner) et vicieuse (il modifie des 
octets de la Ram de configuration de la 
machine, ceux qui sont conservés 
même quand on l'éteint). 


Saviez-vous qu'un outil de debuging 
est caché dans la Rom de votre GS ? 
Pour avoir accès au Memory 
Peeker, tapez : 

CALL -151 

0 = el (sortie d'émulation) 

FF/1800x (installation de l'outil) 

G - CTRL - Esc.i (tableau de bord) 


A lire 


Apple France 
vient de traduire et 
publier un certain 
nombre de livres 
et documentations 
Apple. Toutes les 
publications tech- 
niques Apple sont 
une merveille de 
pédagogie, de clarté et d'exactitude, et 
sont très agréables à lire. Font donc 
désormais partie des indispensables à 


demander à votre revendeur avant qu'ils 
ne soient épuisés : 


— Manuel de Référence de 
l'Imagewriter II (vous 
n'utilisez pas 10% des possibilités 
de cette excellente imprimante) ; 

— Le Guide des Interfaces 
Apple (indispensable pour 
comprendre le fonctionnement de 
votre port série, ou choisir le bon 
câble pour InterPom's) : 

— La Programmation en Basic 
avec ProDOS (un des meilleurs 
ouvrages sur le Basic) ; 

— Manuel de Référence de 
l'Instant Pascal (l'Instant 
Pascal est un outil extraordinaire 
pour apprendre et enseigner le 
Pascal, y compris celui du Mac. 
En revanche, il est inutilisable 
pour développer). 


À lire aussi : les numéros 34 et 
suivants de Pom's. Vous apprendrez 
dans la chronique Apple {{ for ever : 

* comment mettre un IBM dans 
votre Apple ; 

+ comment mettre un Apple dans 
votre IBM ou compatible ; 

* comment utiliser les drives 800Ko 
compatibles Mac sur l'Apple // ; 

+ comment accélérer le chargement 
du système sur GS ; 

* comment transformer un antique 
][+ en station Citizen Band ou en 
labo de physique ; 

+ quels langages utiliser sur GS ; 

- comment piloter la Laser Writer 
avec un //e ou un /{c ; 


Accolade 

20833 Stevens Creek Boulevard 
Cupertino —- CA 95014, USA 
Activision 

P.0. Box 7286 — Mountain View 
CA 94039 - USA 

Beagle Bros / Software Touch 
3990 Old Town Avenue — Suite 102C 
San Diego - CA 92110 - USA 
Broderbund Software, Inc 

17 Paul Drive — San Rafael 

CA 94903 - USA 

Datapak Software 

14011 Ventura Boulevard — Suite 507 
Sherman Oaks — CA 91423 - USA. 
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Froggy Software 
33, Avenue Philippe-Auguste 
75011 Paris — æ 43 58 25 98 


Jed Design, Inc LE 


3300 Central Avenue SE - Canton 
Ohio 44707 - USA 


Roger Wagner Publishing 
1050 Pioneer Way - Suite P 
El Cajon - CA 92020 - USA 


Thunderware 


USA 


Sierra On Line 
5750 France Avenue South 
Suite 123 — Edina — MN 55435 - 


Springboard Software,lnc 
7808 Creekridge Circle - Minneapolis 
MN 55435 - USA 


21 Orinda Way — Oninda — CA 94563 


VersionSoft 
94, rue Lauriston — 75116 Paris 
& 47 27 71 72 


Zip Chip 
11926 Santa Monica Boulevard 
Los Angeles - CA 96025 - USA 





Dans cette rubrique, vous trouvez un reflet de 
l'activité de notre boîte aux lettres (emp11) sur 
CalvaCom. 





4) QUEST N32 - 31. 
De: Michel LE PORT (MLP10) -31 oct87 18h11 


Pourriez-vous m'indiquer la correspondance des bomes 2 3 7 de 
la prise DB9 avec la prise intérieure 16 briches du Joystick ? 
Merci. 


Voici la correspondance des broches Joystick : 


DB9 INTERNE 
TES Ce type dinformations se 
281 trouve dans le ‘Manuel de 
3 8 Référence Apple /e’ 
4 7 disponible chez tous les 
56 revendeurs Apple. 
6 4 
7 à 
8 10 
OT T 

3) Pom's 22-31. 


De: Arnaud KOPP (AK24) - 17 sep 87 20h56 


Dans Pom's 22 page 17, vous parlez du programme RENUMBER. 
mais où se trouve-il? 
Arnaud Kopp 


Le Renumber auquel on fait allusion dans le numéro 22 de Pom's 
est un utilitaire qui figure sur la disquette Master DOS 5.3. 
Cette disquette n'est plus aujourd'hui livrée avec les ordinateurs 


{ProDOS oblige) maïs tous les revendeurs Apple peuvent vous la 
fournir. 


2) Pbm AuxMove - 6l. 
De: André KRZELJ (AK14) - 22 sep 87 16h46 téiéphonique 


Pour adapter des programmes de l'Apple / au GS, comment faire 
pour remplacer Aux_Move et pouvoir déplacer des blocs dans 
TOUTE la mémoire ? 


Deux méthodes pour remplacer AuxMove : 


1) Vous inspirer de la routine de VB Toméno (Pom's 32 page 10) 
qui est une boucle constituée de : 
AF bbmmhh (LDA adresse sur 3 octets à l'envers, hh = n° page) 
8F bbmmhh {STA adresse sur 3 octets à l'envers, hh = n° page). 
La même méthooe a été employée dans Peeks et Pokes longs 
{n° 30). 


2) Le mieux est d'utiliser l'instruction de déplacement de blocs 
MVP. 

MVP banc_ départ,banc_destination 

X contenant l'adresse sur 2 octets dépait 

Y contenant l'adresse sur 2 octets de desbnaton 

A contenant le nb d'octets à déplacer. 

Faites PHB avant et PLB après pour préserver DB. 


1) AIDE..AIDE...SVP. - 10 1. 
De: Jean QUINNE {JQ13) - 07 oct87 10h31 


Bonjour ! 

Ici Jean Quinne de Nouvelle-Calédonie. 

Bien reçu le câble pour transfert fichier entre A2E et Mac, mais 
rien ne marche car. 

Je ne sais pas comment récupérer les fichiers de mon disque dur 
PROFILE qui sont en pascal 1.3 d'une pat ; 

je viens de recevoir la revue no 32 ; et à ma grande joie je vois 
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que vous décrivez à la page 63 qu'il y a une disquette de 800Ko 
avec un programme UFC. Est-ce que c'est la solution ou une 
petite solution à mon problème. 

Merci et espère avoir une réponse positive..sincèrements. JEAN. 


Inter Pom's fonctionne sous ProDOS et ne peut lire que les fichiers 
ProDOS. Les fichiers Pascal DOS ou CP/M doivent étre conveitfs. 
L'utiitaire Universal File Conversion est vendu par : 

Quality SotfWare 

21610 Lassen Street 

Chatsworth 

California 91311 USA 
par correspondance avec caite Visa au prix de 34,95 dollars. 


Cet utilitaire permet de façon simple de convertir les fichiers entre 
les 4 Dos : DOS 3.3, Pascal, ProDOS (ou SOS) et CP/M. 





2) dBase- 61. 
De: Maïk AIT BACHIR (MAB10) - 19 sep 87 08h37 


Bonjour 

Je souhaiterais reprendre des fichiers dBase 2 crées sur Apple 
dans mon PCsur dBase 3. Est -ce possible avec les softs Inter- 
Poms pour des fichiers en CP/M. 

Merci pour votre réponse. 


Les fichiers dBase 2 peuvent être transmis sur l'IBM via 

Inter Pons ; toutefois, il devront étre conveitis sous ProDOS avant 
transmission. 

Bien ente‘du, À restera à régler les éventuelles différences de 
format entre dBase? sur Apple et dBase3 sur IBM. 





4) Problème... - 11 1. 
De: Henri PIERME (HP10) - 22 sep 87 19h29 


Bonjour... J'ai acheté le dernier Pom's mais j'ai qq problèmes 
avec le programme Lemouse... lorsqu'un menu est déroulé il reste 
affiché ? 

Et il y a une erreur d'affichage du 2e menu que je n'ai pas réussi 
à corriger (c'était pire)... 

Je tiens à vous préciser que je possède un Apple/'e 128ko 65c02. 
Merci 


Effectivement, le programme LeMouse ne fonctionne que surun 
Mc {comme l'indique la revue). En fait, il ne fonctionne que sur Mc 
128K0, ce programme étant aller gique au x nouveaux 384K 0 
{souris en slot 7). 


6) ROUTINE PRODOS COPIE ECRAN - 1 I. 
De: Marius MARTINET (MM68) - 09 oct87 21h54 


pouvant tourner surcet appareï. Je suis un nouvel abonné à 
votre revue. 


Votre message est court et nous ne sommes pas sûr de vos 
besoins. 

Pom's a pubtié dans son numéro 17 un pgm de copie de l'écran 
HGR sur Epson, dans son numéro 18, une copie de l'écran DHGA 
sur ImageWriter et dans son numéro 19, une copie de l'écran 

| HGR sur ImageWriter. 








Dans un prochain numéro, nous publierons un pgm de copie de 
l'écran texte 40 ou 89 colonnes sur toutes imprimantes. 


3) Questions - 11 |. 
De: Patrice DELORME (PD28) - 11 oct 87 19h05 


Bravo votre revue est fantastique. 

Je possède un Apple //c, je voudrais savoir quels sont les 
langages 

Pascal qui fonctionnent sans drive externe. En ce qui concerne 
Instant Pascal est-il suffisant pour développer des logiciels impor- 
tants ou est il restreint à l'apprentissage du Pascal, pouvez vous 
me donner son prix. 

Vous avez publié plusieurs montages électroniques concemant la 
communication (composeur de numéros, cordons minitel, 
détecteur de sonnerie) est-il possible de regrouper ces 3 mon- 
tages en un seul afin de n'occuper qu'une seul prise de l'Apple. 


- Les Pascal d'Apple (1.2, 1.3) se contentent d'un seul lecteur, 
mais que! travail : il faut en permanence changer la disquette, 
parfois pendant l'exécution d'un programme. 

- Instant Pascal permet l'apprentissage et le graphisme mais, 
étant interprété, il est plus lent et convient mal pour des applica- 
tions d'importance. 

Les revendeurs Apple vous conseilleront certainement et sauront 
vous donner des prix. 

Bien entendu, regrouper les montages est chose possible mais en 
tous cas, ifs occuperont deux prises : le joystick et la prise 
communication. 





1) Disquette //GS- 7 |. 
De: Christian RICHAUME (CROO10) - 05 oct 87 19h26 


J'utilise un IIGS et vos disquettes 3.5. 

Pour les rendre bootables il est nécessaire de faire beaucoup plus 
que ce que vous conseillez : “installer les fichiers Prodos et Basic 
System” 

Une marche à suivre très détaillée semble nécessaire, tout le 
monde n'ayant pas à sa disposition un informaticiende haut niveau 
pour aider !! 

Amicalement C.R. 


Etpourtant, les disquettes Pom's deviennent ‘bootables’ par le 
simple ajout de ProDOS (P8) et BasicSystem. Cela suffit pour 
obtenir le curseur et permettre de lancer tout programme. 

Bien entendu, un système réduit tel celui conseillé ne permettrait 
pas à GSPaint de fonctionner (il nécessite ProDOS 16) mais, 
comme ce n'est pas le but... 

En revanche le programme QDBasic de ce numéro est fe premier 
programme de Pom's qui nécessite ProDOS 16. 


5) S.O.S. Applewriter 1! sur 11 GS: Possibilités. - 101. 
De: Jean-Pierre BOULESTEIX (JPB12) - 21 oct87 19h52 


Bonjour, et merci d'avance pour le “tuyau” qui me seraît très 
précieux : 

Je travaille avec un logiciel de communication qui s’appel PROS- 
PECTOR, après avoir “récolté” les adresses sur Minitel je dois les 
retravailler avec un traitement de lexte en DOS 3.3. Donc j'utilise 
Applewriter sur mon //e mais il m'arrive d'avoir des disquettes 
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140K pleines et paslisibles dans leur totalité: la solution étantde 
passer mes fichiers text sur disk 800Ko. 


Donc sur Il GS...? que faire, et quel serait l'autre iraitement de 
texte DOS 3.3 qui pourrait etre accepté sur Il GS? Merci d'avance, 
et bravo pour l'idée d'être sur Calvacom. A vous lire. 


Pour utiliser un lecteur 800Ko en DOS 3.3, il faut un DOS modifié 
(avec UNIMATE par exemple), mais cela contrarie Apple Writer. 
MagicWindow conviendrait peut-étre maïs if n'a pas la souplesse 
d'AppleWriter. Converir les fichiers en ProDOS avant de les traiter 
n'est pas simple non plus. 


Nous ne voyons que le renoncement à Prospeclor! : avez-vous 
essayé le programme que nous avons publié dans notre numéro 
30, T.POMS. 

La ‘récolte’ d'adresses se fait dans un fichier ProDOS non limité 
en faille, directement modifiable par Apple Writer (pourquoi pas 
avec une petite routine WPL pour accélérer les choses ?). 





6) Conseil d'achat - 10 1. 
De: David BENSIMON (DB25) - 21 oct 87 20h48 


Juste un conseil à ma revue préférée : 

Possesseur d'un Ile (illustre ancêtre), je bave d'envie devant le 
llgs, mais voilà, le Mac + coûte actuellement le même prix que ie 
Ilgs couleur. 

Conseillerez-vous à un adepte de l'assembleur du 6502, 
possesseur de nombreux programmes et routines.. un Îlgs, suite 
logique du Ile, ou un Mac + ? 

Deuxième question : L'extension 512k du Higs fonctionne-elle 
comme la carte féline ou est-elle réellement une extension 
mémoire {c'est-à-dire sans commutation de banc mémoire) ? 
Merci d'avance. 


Bonne question ! Réponse bien délicate, mais voici quelques 
éléments de réflexion : 


Mac: 

-  Rapidité du processeur —> souris plaisante à utiliser, gestion 
de l'écran graphique particulièrement agréable ; 

- Ergonomie, souplesse de la gestion de disque ; 
Assembleur 68000 radicalement différent du 6502, c'est un 
autre monde ; 

- Pas de possibilité de bâcler une petite routine sous moniteur 
pour un simple essai ; 
En Basic, on peut faire la même remarque : comment 
concevoir un pgm sans gérer événements, fenêtres... 


Apple HGS : 
- Possibilité de récupérer tous ‘es pgm Apple / ; 
Possibilité de travailler ‘à l'Apple #” (Monieur, Basic, Assem- 
bleur 6502...) ; 
Le 65816 est le prolongement du 6502, on n'est pas dépaysé, 
méme avec 16 bits l'accumulateur, c'est bien rassurant ! ; 
Pas encore de vrai Basic digne de ce nom (en fait il sera 
bientôt disponible...) ;; 
Plus nous le pratiquons, plus nous lui trouvons un air Mac : 
Gestion de fenêtres; 
Routines graphiques QuickDraw {voir ce Pom's pour 
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l'utlisat'ion de QuickDraw sous Basic AppleSoft) ; 
ProDOS 16 bien proche du HFS (en fait c'est le HFS qui 


est proche...) ; 
Gestion des événements (souris, clavier, insertion dis- 
quette...) ; 
Faire une application 65816 est aussi complexe qu'une 
application 68000 ; 
Accessoires de bureau ; 
Apple alk : GSPaint permet de commande la Laser- 
Writer... ; 
Lenteur du processeur, on voit les icônes se dessiner, la 
souris n'est pas trés plaisante (quand on vient du Mac) ; 
-_ Couleur (mais difficulté de programmation) ; 
- Seuls 64K0o sont accessibles depuis le Basic Applesoft, au- 
delà, on commute : les # mégaoctets ne sont pas en lignes 
mais par page’ de 64K0 ; 


Dernier élément : Pom's donnera de plus en plus de pgm aux 
possesseurs de GS (mais sans réduire la place du Mac...) 


Cruel dilemne ! 





4) RECHERHE ADRESSE... - 41. 
De: Jean QUINNE (JQ13) - 22 oct87 10h53 


Bonjour ici Jumbo Vidéo(JQ13) Quinne Jean 

Connaissez-vous une adresse pour un programme d'astrologie sur 
Mac? 

Où trouver HyperCard et MuitiFinder ? 

Merci et sincères salutations. 


La seule adresse que nous ayons trouvée : 
Decleir Louis 
103/731 Blode VCalmy 
59650 Villeneuve d'Ascq 
20434387 
programme éctiten Mégamax C. 


HyperCard et MultiFinder : disponibilité en français paraît-il 
en novembre/décembre chez les revendeurs Apple. Les 
développeurs peuvent obtenir une version US auprés d'Apple. 
Plus de précisions dans la cité Mac de CalvaCom... 


4) interface utilisateur - 6. 
De: Patrice DELORME {PD28) - 22 oct 87 19h07 


Je suis en train de concevoir une interface utilisateur en LM sur 
Apple //c du style Macintosh mais je me heurte à des problèmes 
d'organisation des routines. 

Pouvez-vous me conseiller un livre sur l'interface utilisateur du 
Mac qui débate des problèmes techniques de cet interface. 
Merci d'avance. 


Pour les contraintes à respecter : 
Inside Macintosh vol. 1 (Macintosh User Guidelines). 


Cela ne vous donnera que les principes à respecter mais aucune 
solution concernant!a programmation de l'Apple / : nous ne 
voyons pas que vous conseiller d'autre. 
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Excel — 


Bibliothèque de 
macros, par Mary Campbell, Que 
Éditions, 356 pages. Traduction. 


Un livre pour ceux qui ne veulent 
progresser que dans le domaine des 
macros. Comme ïil s'agit d'une 
traduction, on a droit aux surprises 
habituelles : tout le premier chapitre, 
par exemple, indique des virgules 
comme séparateurs d'arguments ; la 
programmation linéaire est définie 
comme une programmation de haut en 
bas. 


On peut regretter l'absence de liste 
récapitulative donnant une vue 
d'ensemble des fonctions et des 
commandes macros. L'intérêt principal 
de l'ouvrage réside dans les exemples 
de macros fournis. 





Excel applications, par David K. 
Simerly, Sybex, 296 pages, 248 F. 


Le prix n'est pas du tout justifié par la 
qualité ou l'intérêt de ce livre : ce livre 
fourmille d'exemples de formules mal 
construites et pourrait servir de base à 
un Cours sur l'audit et l'amélioration 
de modèles Excel. Ainsi, de façon tout 
à fait originale, l'auteur invente une 
formule comme : 

SOMME(L9 {L9*0,4)) 
là où : 

0,6*L9 

suffirait ; les exemples de cet ordre 
sont multiples. 


L'auteur présente les codes de 
présentation des en-têtes et pieds de 
page tels qu'ils sont décrits dans la 
documentation d'Excel ; malheureuse- 
ment, dans la réalité, ils ne 
fonctionnent pas comme prévu et 
l'auteur ne s'en est apparemment 
jamais rendu compte. Pour savoir 


Alexandre Duback 


comment marchent ces codes, il faut 
se référer au Guide pratique d'Excel ou 
à Excel efficace, chez Cedic-Nathan. 


Graphisme et mise en page sur 
Macintosh, par Andréas Pfeiffer, 
Cedic-Nathan, 315 pages, 310 F. 


1 s'agit là d'un ouvrage proche, 
pratiquement une seconde édition, 
sérieusement remaniée, du livre 
Applications graphiques pour 
Macintosh. L'auteur est compétent et 
pratique ce qu'il enseigne. Seul 
problème, le livre étant publié en 
octobre 86, il n'inclut pas Xpress et 
présente Ready-Set-Go dans une 
version 2. 





L'édition sur Macintosh, par A. 
Chichery, J.-P. Drieux et A. Jarlaud, 
Dunod, 208 pages, 145 F. 


Le sous-titre indique "Think Tank, 
More, McWrite (sic), Jazz, Word, Mac 
Auteur, Writer Plus”. C'est tout dire, 
quand on sait que Jazz et Mac Auteur 
sont quasiment aux oubliettes, et que 
Waiter Plus a réussi à faire regretter 
son retard (tant qu'il était en retard, on 
pouvait encore rêver...). Le Word 
couvert par le livre en est à la version 
1.15. Certes, nous avons ce livre 
depuis bien deux ou trois mois mais, 
même à sa sortie en mars 87, il datait 
déjà. Si ce livre vous intéresse, 
attendez donc qu'il sorte en deuxième 
édition. 





——— 





Votre permis de conduire un 
ordinateur, par François Gazay, 
Tendances et évolutions technolo- 
giques, 207 pages, 95 F. 


Cet ouvrage a l'avantage d'être 
relativement clair et facile à lire. Les 
inconvénients : une présentation 


sobre, pour ne pas dire spartiate, et un 
contenu parfois un peu trop sommaire 
et pas tout à fait d'actualité. Ainsi, le 
chapitre Langages ne parle même pas 
d'Ada, et l'on a l'impression que 
l'auteur ne connaît ni les Macintosh, 
ni a fortiori les équipements puissants 
que sont aujourd'hui les 386 et autres 
Mac Il. 





Excel efficace, par Hervé Thiriez, 
Cedic-Nathan, 263 pages format A4, 
295 F. 

Disquette d'accompagnement diffusée 
par Éditions MEV : 175 F (800K) ou 
195 F (2 x 400K). 


Une centaine de thèmes, classés en 13 
chapitres et lisibles séparément les 
uns des autres, sont traités dans cet 
ouvrage qui s'adresse à tous les 
possesseurs d'Excel ayant déjà maîtrisé 
le B.A.BA de cet excellent logiciel. À 
la fin du livre, plusieurs tables de 
référence vous permettent de retrouver 
rapidement toutes les fonctions, les 
fonctions macro, les commandes et les 
raccourcis d'Excel. Les chapitres sont 
les suivants : Excel sur Macintosh, 
L'édition, Référence aux cellules, 
Présentation des feuilles de calcul, 
Perfonnances, Les formats, Modifica- 
tion des structures, L'utilisation des 
tableaux, Organisation des données, 
Les macro-fonctions, Les macro- 
commandes, Pot-au-feu d'astuces et 
Audit d'une application. 

Dans la lignée de MacAstuces et des 
Secrets de Multiplan, ce livre est une 
mine de renseignements sur Excel et 
d'astuces d'utilisation. C'était le 
best-seller du stand PSI-Cedic à Apple 
Expo. 

Attention : le bon de commande de la 
disquette a été omis du premier lot de 
livres. Sachez donc que vous pouvez 
commander la disquette directement 
auprès de Pom's (voir le bon de 
commande en fin de ce numéro). 
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 ? 
UNE COMMANDE A 2 3 HEURES * texte à exporter, nommé Commande.CLV sur la dis- 


Vous êtes déjà nombreux à profiter de la messagerie quette de ce numéro.” 
CalvaCom pour vos questions techniques et à recevoir Vous devrez nous indiquez : 





nos réponses même à des heures indues ! Votrerevue - les produits souhaités, 

est maintenant en mesure de vous proposer un nou- 7 Vos nom et adresse, 

veau service qui ajoute la rapiditétélématiqueauxpro- - Votre numéro de Carte Bleue, Visa, Eurocard ou 
duits Pom's : la passion n'attend pas. Mastercard, 

Si vous êtes abonnés à CalvaCom, laissez-nous vos - Sa date d'expiration, 

commandes dans notre boîte à lettres (emp11): une - le montant de votre commande. 





disquette commandée le matin avant 10 heures sera : 

expédiée le jour même... Cette commande peut, bien Endemandantun accusé deréception, vous connaîtrez 
sûr être saisie directement sur le clavier Minitel mais, l'heure de traitement... | 
solution plus souple, vous pourrez utiliser le fichier Belle occasion de s'abonner { 









Mots Croisés 


Gérard Vorreux, abonné du Nord, et Gérard Kittel | Gibert d'Eyguières, Jean Payat de Chénove, Olivier 
de larégion parisienne, ontété les plus promptsdans  Blondeau de Saint Maur, Pascal Quilez de Bordeaux 
la résolution de notre problème 32 et A. Blandy. Les possesseurs de 
(solution ci-contre). Ils bénéficient Macintosh trouveront sur la 
d'unavoirde 200,00 F. Félicitations disquette d'accompagnement de ce 
également à : Robert Baccou de numéro la grilleetle programmede 
Paris, Alain Pastor de Montreuil, Roland Jost (application Turbo- 
Gisèle Perrault de Paris, Gérard Pascal publiée dans le numéro 32) 
Mandel de Paris, C. Jacolin de quiremplaceraavantageusementle 
Allauch, René Martin de Cognin, crayon et la gomme pour la 
M. Stankiévitch d'Aix, Ferdinand résolution du problème ci-dessous. 








Problème 33 par Joëlle Piard 





Horizontalement 2 
1 - Tôt ou futé. 3 
2 - Ecrit des sous-programmes, par habitude ? 
3- Assoiffer. Bien mangé. 4 
4 - Met tout-à-fait hors de soi. Partie de charpente. 5 
Œillet sans queue. 
5 - Fief. 6 
6 - Lointains souverains. Manque d'entrain. 
7 - Elcitra. Préfixe vaporeux. U 
8 - imaginaires. Tout bénéfice. Drame. 8 
9 - Premièrement, mais ce n'est pas le début. 
10 - Tracassates. 9 
10 
Verticalement 
1 - Organisme rouge. 2 - N'a que faire des paroles... - Déesse blanche. 
3 - Ne supporte pas la rosière.. - Personnel. 4 - Pour l'infection. Pansue. 
S - Halons. WHO pour les Anglais. 6 - Suffixe mémorable. - Henri y fit construire un château. 


7 - Pour Île 2.1 vertical. - Jeu d'aventures. 
8 - Personnel où personnel. Sans intérêt pour les vaches. Copule. 
9 - Même pas échaf audé. 10 - Coca - Bèbêtes. 
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| Dbné nn dtnmanams : 


Disquettes Apple ][ 














CLV_Pom's - 140Ko ou 800Ko 200,00 F L] 
Edite ur Vidéotex - f40Ko 200,00F ©] 
E.P.E. 5.1 - 140Ko 200,00 F O 
E.P.E. 5.1 - 800Ko 200,00 F CO] 
Max (moniteur étendu) - t40Ko 150,00 F CL 
BananaSoft - 140Ko 200,00 F © 
Pascal - 140Ko 80,00 F [] 
Ordico - 140Ko 200,00 F €] 
Dominos - 140Ko 80,00F D] 
COGO - 140Ko 200,00 F 
Ludologic - 140Ko 80,00 F ©] 
Recueils Pom's 
Numéro 1 (Revues 1 à 4) 140,00 F OI 
Disquettes 1 à 4 200,00 F [1 
Numéro 2 (Revues 5 à 8) 140,00 F C1 
Disquettes 5 à 8 200,00 F CO 
Numéro 3 (Revues 9 à 12) 140,00 F [1 
Disquettes 9 à 12 200,00 F [] 
reliures toilées 
pour 6 numéros, soit un an 60,00 F C] 
Apple] 800Ko 3'5 numéro 29 80,00 F [1 
| Apple ][ 800Ko 3'5 numéro 30  80,00F [] 
Apple ][ 800Ko 35 numéro 31 80,00 F C1 
Apple }{ 800Ko 3'5 numéro 32 80,00 F C] 
Apple ][ 800Ko 35 numéro 33 80,00F C] 


Macintosh 


CLV_Pom's  200,00F [] 
Excel eff. 800K 175,00F [] 








Excel eff. 400K 195,00 F 
MacAstuces  20000F [] 
Mac ‘A’ 80,00 F C] 
Mac 'B' 80,00 F CO] 
Mac 'C' 80,00 F ©] 
Mac ‘D' 80,00F © 
Mac'E’ 80,00 F C1 
Mac ‘F' 80,00 F 
Mac ‘G’ 80,00F C] 
Mac ‘H’ 80,00F C 
Mac 80,00 F C1 
Mac 17 80,00 F 
Mac 18 80,00 F C1 
Mac 19 80,00 F ©] 
Mac 20 80,00F ©] 
Mac21 80,00F 
Mac 22 80,00F [] 
Mac 23 80,00 F C1 
Mac 24 80,00 F C] 
Mac 25 80,00 F C] 
Mac 26 80,00F [] 
Mac 27 80,00 F [1 
Mac 28 80,00 F C] 
Mac 29 80,00F [] 
Mac 30 80,00 F C] 
Mac 31 80,00 F C] 
Mac 32 80,00 F C] 
Mac 33 80,00 F C1 








Accompagnement 


A I 140Ko 4 
A ][ 140Ko 5 

A ] 140K0 6 

A ][ 140Ko 7 

A ][ 140Ko 8 

AJ 140Ko9 

A ][ *40Ko 10 
A JL 140Ko 11 
A ][ 140Ko 12 
A ][ 140Ko 13 
A ][ *40Ko 14 
A ] 140Ko 15 
A J{ 140Ko 16 
A ][ 140Ko 17 
A ] 40Ko 18 
A ][ 140Ko 19 
A ][ 140Ko 20 
A J 140Ko 21 
A ][ 140Ko 22 
A ][ 140Ko 23 
A JL 140Ko 24 
A JL 140Ko 25 
A ][ 140Ko 26 
A JL 140Ko 27 
A ][ 140Ko 28 
A ][ 140Ko 29 
A ][ 140Ko 30 
A JL 140Ko 31 
A ][ 140Ko 32 
A JL 140Ko 33 


60,00 F C] 
60,00 F CL 
60,00 F 
60,00 F C 
60,00 F CI 
60,00 F CI 
60,00 FC 
60,00 F © 
60,00 F C1 
60,00 F C 
60,00 F C1 
60,00 F C1 
60,00 F C1 
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Revue n° 33 45,00F 0] 


la revue seule 


Nom : 
Adresse : 


Montant, F 





74 


la revue et les disquettes Apple ][ 140Ko - 5° 1/4 
la revue et les disquettes Apple ][ 800Ko —-3" 1/2 
la revue et les disquettes Macintosh 
la revue, les disquettes Apple ][ 40Ko — 5' 1/4 et les disquettes Mac 
la revue, les disquettes Apple j[ 800Ko — 3' 1/2 et les disquettes Mac 


| Règlement par : CB/Visa/Eurocard/Mastercard 
NUMÉTO UE AICAIE 2e 





Revue n°8 35,00F0)  Revuen° 10 4000FC1  Revuen° 11 40,00 F[] 
Revue n° 13 40,00FC  Revuen° 14 40,00FC1  Revuen° 15 40,00F0] 
Revue n° 17 40,00FC)  Revuen° 18 40,00F Revue n° 19 40,00F0] 
Revue n°21 40,00FE1 Revuen° 22 4000FC]  Revuen° 23 40,00 F0] 
Revue n° 25 40,00FC1 Revuen° 26 40,00FC) Revuen°27 4500F0] 
Revue n° 29 45,00F 0) Revuen° 30 45,00F 0) Revuen° 31 45,00 F0] 














Abonnements pour six numéros à partir du , à : 


Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou — 78000 Versailles 


Revue n° 12 
Revue n° 16 
Revue n° 20 
Revue n° 24 
Revue n° 28 
Revue n° 32 


1025,00F 


40,00F 0 
40,00 FC] 
40,00 FC] 
40,00 FCI 
4500F0 
45,00F 0] 


225,00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 











Sels 'mE 2 


CO Chèque bancaire C2 Chèque postal] Mandat © 


Signature : 


date d'expiration 





* pour les envois par avion, ajoutez 15 F par numéro eVou par disquette soit, par exemple, 90 F pour Un abonnement avec ou sans disquettes. 
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Câble-interface de communication Apple/Minitel 


Cette liaison est indispensable pour faire fanctionner les programmes suivants : 

MinBas pour Apple }|+, //e, lle+, /{c et //GS° : programme permettant l'enregistrement des écrans Minitel, la restitution à loisir 

hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoi de textes ou messages sur un serveur, ces 

messages étant préparés à l'avance avec n'importe quel programme de traitement de textes, Programme du numéro 27 de Pom's. 

Minltel/1 pour Macintosh : programme identique à MinBas pour Apple ], avec en plus un mini-éditeur de texte pour la préparation 

et le stockage des messages sans sortir du programnie. Programme publié dans le numéro 27 de Pom's. 

InterPom's 1.0 pour Apple ][+, //e, {/e+, //c et //GS” et Macintosh : programme de téléchargement entre Apple ][ et/ou Apple ] 

et Macintosh. Ce logiciel autorise la transmission de n'importe quel type de fichier (système, texte, binaire, Basic...) en utilisant le 

Modem du Minitel. Programme publié dans le numéro 28 de Pos. 

* TPom's pour Apple }[+, //e, //e+, /{c et 1/GS** et Macintosh : programme de récupération de l'annuaire téléphonique sous la 
forme de fichiers texte. Numéro 30 de Ponr's. 

* Civ_Pom's pour Apple ]+, fe, //e+, {{c et//GS** et Macintosh : programmes de communication pour une meilleure utilisation de 

CalvaCom et des serveurs 'ASCIF. Programmes présentés dans le numéro 31 de Pom's, page 2. 

Paint — Minitel pour Macintosh et HGR — Minitel pour Apple ][+, //e, //e+, lc et #{GS** : graphisme et Minitel, programmes 

proposés dans œ minéro. 


* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple GS ne convient pas. 
Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 
Macintosh Plus. 

* sur un Apple GS, ce programme fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour 
connecter le port intégré du IIGS, utitisez un câble pour Macintosh Plus. 


Je désire recevoir: câble Minitel/Apple ][+, /'e, //e+, Iles avec SSC  _ à 22500F 
câble Minitel/Apple //c — à 242500F 
câble Mnitel/Macintosh 128 & 512Ko D 1 2S00E 
câble Minitel/Macintosh Plus, llcs port intégré ____ à 22500F 
câble Minitel/IBM PC" = 41 22500IF 
câble de liaison locale Apple Il/Mac/IBM°"* * ____ à 225,00F 


“(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple /'e,f/c, IIGS, IBM PC" ) 
* pour les envois par avion, ajoutez 15 F par câble. 


Envoyez ce bon et votre règlement à : Éditions MEV -12, rue d'Anjou - 78000 Versailles 

Nom : 

Adresse : fe 
Règlement par: CB/Visa/Eurocard/Mastercard CI Chèque bancaire [1 Chèque postal [1 Mandat [1 
numéro de la carte date d'expiration _ 


Montant  : Signature : 


LI e ] 
Programme de transmission InterPom's 
Ce programme décrit dans le numéro 3 ÿ vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte 
entre Apple //, Macintosh et IBM PC'#. Entre deux machines de même type, tous les fichiers sont transférables : Applications, polices 
de caractères, accessoires de bureau, commandes, documents graphiques etc. 


Je désire recevoir : InterPom's pour Apple //, disquette 140Ko, 525  _ à 450,00F 
InterPom's pour Apple //, disquette 800Ko, 35 ____ à 450,00F 
Inter Pom's pour Macintosh, disquette 35 ____ à 450,00F 
InterPom's pour IBM PC"* ____ à 450,00F 


* pour les envois par avion, ajoutez 15 F par disquette. 


Envoyez ce bon et votre règlement à : Éditions MEV —12, rue d'Anjou - 78000 Versallles 

Nom : 

Adresse : Æ 
Règlement par: CB/Visa/Eurocard/Mastercard [I Chèque bancaire [1] Chèque postal [1 Mandat [] 
numéro de la carte date d'expiration __ __ __ 


Montant + Signature : 





Dépôt légal : novembre 1987, no d'impression 789667 








AN ASHTON TATE 


dBASE Mac 


dBASE Mac a été spécialement conçu pour tirer parti de toutes les 
caractéristiques du Macintosh. Véritable gestionnaire de bases de 
données relationnelles, il allie toute la puissance et la fiabilité de 
dBASE III à la convivialité du Macintosh. Nul doute que dBASE 
Mac saura s'imposer comme un standard au même titre que dBASE 
sur PC, avec lequel il échange directement les fichiers de données. 
Grâce à l'interface visuelle du Macintosh, les relations multiples entre 

les fichiers sont représen- 

tées à lécran. dBASE 

Mac possède également 


re IN ASTON ‘TATE un puissant langage de 
TNT K\ . : 
Mec _ programmation qui per- 


met de bâtir des appli- 
cations de gestion. 


3 950 F «ur, 





FA La Commande Electronique ; 
_ 7. RUE DES PRIAS — 27920 SAÏNT-PIER nc que € BALLEUL 
TÉL. 32 525402 FAX N° 32525446 T 


a 






où CAT 


